my $fh = open "<", $filename;