Select Code to Download

open STUFF, "<", $file or die "Can't open $file: $!";

...
    if (/^need this/) { # do your stuff here }
  }
}