Select Code to Download

open(FILE1, $ARGV[0]) || die "Error: $!\n";
my $save=0; 
...
  elsif ($save) { $saveto.=' '.$line;); } 
  }
print $saveto."\n" if ($saveto) ;