Select Code to Download

open BIGFILE, $filename or die;
while (<BIGFILE>)
...
  warn "Untested code is bad!";
}
close BIGFILE;