#!/usr/bin/perl
    use strict;
    use warnings;
    
    $SIG{__DIE__} = sub { print "died\n" };
    
    eval {
        require "DOESNT EXIST";
    };
    print "died (2): $@\n" if $@;
    ~