use autodie;

open my $fh, '<', $file;