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