Select Code to Download

while (local $_ = <$FH>)

use strict ;
use warnings ;
...
print "  -- $_\n" ;

sub amuck { $_ = '!!!' } ;

while (<$FH>)

while (my $_ = <$FH>)