Select Code to Download

#!/usr/bin/perl -ln

use strict;
...
    local $/='//';
    print <>;
}

#!/usr/bin/perl -ln

...
print if $_ eq 'ORIGIN' .. $_ eq '//'
  
__END__

open (FILE, $ARGV[0]) or die "unable to open FILE\n";