sub blah {
    die "blah";
}

eval {blah();};

if ($@) {
    die "$@\n";
} else {
    print "okay\n";
}

# prints "blah at foo.pl line 4"