...
print "Um was handelt es sich? \n";
print "(M)ovie ,  (G)ame , M(u)sic , (A)pplication\n";
chomp($a=<stdin>);
...