Select Code to Download

Script #1
#!/usr/bin/perl -w
...
   }
}

Script #2
#! usr/bin/perl
...
open (OUT, '>', $destination) or die "Can't write to file $destination
+ : $!\n";
print OUT @ref;
close OUT;