use strict;
use warnings;

package Error;

sub new {
    my ($class, $errorStr, @params) = @_;
    my @context = caller;

    return bless {err => $errorStr, context => \@context, params => \@params}, $class;
}

sub Dump {
    my ($self) = @_;
    my ($package, $file, $line) = @{$self->{context}};

    print "Exception: Pkg $package in file '$file' at line $line: '$self->{err}'\n";
}

package main;

eval {
    DoStuff();
    return 1;
} or do {
    my $err = $@;

    $err->Dump() if $err->isa("Error");
};

sub DoStuff {
    die Error->new("Something went wrong.");
}