Select Code to Download

#!/usr/bin/perl

...
    binmode $out;
    print $out $_;
}

while (<>) {
    binmode(ARGV), seek(ARGV,0,0), next if $.==1;
    ...