Select Code to Download

{
my $tempvar = somefunc();
# do something with $tempvar
}
# $tempvar no longer exists here.

{
  local(*INPUT, $/);
...
  $var = <INPUT>;
}
# $/ is set back to it's original value here.

while (<FH>) {
   next if /^#/;  # Skip comments
   # now do something with $_
}