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