This approach is useful when you wish to see the reason why the script "has died" in some part of the program.

Consider the following example:

eval
{

die("REASON"); # the script dies for some reason

};

if ($@) # $@ contains the exception that was thrown
{
print $@;
}