# ctrl -c to exit (this is only example code!!!) while (<>) { print "\$_ = <$_>\n"; } #### # ctrl -c to exit (this is only example code!!!) while (<> and 1) { print "\$_ = <$_>\n"; }