open IN, "<&", $ARGV[0] or die $!;
binmode IN;
while(defined($_ = <IN>)) {
    print "line $_";
}
close IN;