Select Code to Download

$ perl -MDDS -le" Dump($_); print grep /stuff/, 1,2,3,stuff; Dump($_)"
$VAR1 = undef;
...
1 at -e line 1.
$VAR1 = undef;

my $returncode;
while(<IN>){
...
if ( $returncode ){
  BoogieWoogie();
}