open my $fh, '<', $filename || die;