open IN, "<&", $ARGV[0] or die $!;
binmode IN;
my $s = <IN>;
print "line: $s";
print "Attempt to read twice:";
$s = <IN>;
print "line: $s";
close IN;