In my reply above using eval, you can trap and then reword the errors as you see fit. Here's a short example.

eval {
    open my $fh, '<', 'asdf' or die $!;
};

if ($@ =~ /No such file or directory/){
    print "short error msg\n";
    # or...
    die "short msg";
}
[download]