Select Code to Download

open(my $orig, "<", "foofile";
open(my $dupe, "<&", $orig);

#!/usr/bin/perl
use strict;
...
    print "\n";
}

$ /usr/local/blead/bin/perl5.9.3 many.plx 
Locations after seeking ORIG to 256: 
...
    ORIG 140  DUPE 264
DUPE read these bytes: 4 30 0 0 4 31 0 0
$

$ perl many.plx
Locations after seeking ORIG to 256: 
...
    ORIG 140  DUPE 264
DUPE read these bytes: 0 64 0 0 0 65 0 0
$