use strict;
open my $fh, "<", undef or die $!;
print "here\n";