print "type in something: ";
my $line = <STDIN>;
chomp $line;