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