Select Code to Download

while(<FILE>)
{
...

  print "$_\n";   # here $_ has a value of undef and causes problems
}

sub doSomething
{
...
   # At this point in the code, $_ is undef and since $_ is
   # global...
}