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