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