open (hear,">$file");
do
{
print "Input\n> ";
chop ($mp = <>);
@hear = "@hear/$mp\";
}
until ($mp eq 'x');
pop @hear;
print hear @hear;
close (hear);