open my $p, '<', $filename or return "Could not open $filename: $!";