$SIG{__DIE__} = sub { die "[".gmtime." UTC] (PID $$) FATAL ".shift };

if( !eval {
    die "Whoops";
    1;
}) {
    print "Error reading config file, using defaults\n";
    ...
};