Select Code to Download

while (my $line = <STDIN>) {
   $line = lc + $line;
...
   print $line;  #still visible
}
# $line now out of scope here

my $count = 0;
while ( $count < 10 ) {
...
} continue {
   $count++;
}