print "Type some: " ;
  
  my $in = <STDIN> ;
  chop($in) ;
  
  print "In: $in\n" ;