package MyClass;

sub new { bless {} => shift }

package main;
use strict;
use warnings;
use Data::Dumper;

eval {
    die MyClass->new;
};
if ($@) {
    warn "Died with " . Dumper($@);
}