print "type something: ";
my($input) = <STDIN>;
print "you typed ", $input;