Better to let open report why opening fails should that occur:

open(my $fh, "<", $filename)
    or die "Can't open $filename: $!";
[download]