use strict;

open (HEAR,">$file") or die "Fehler beim oeffnen von '$file': $!\n\n";
while (1) {
    print "Input> ";
    chomp (my $mp = <>);
    last if ($mp eq 'x');
    print HEAR "$mp\n";
}
close <HEAR>;