For this part, you can just add a "\n" to the end of the message, right? e.g.

sub blah {
    die "blah";
}

eval {blah();};

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

# prints "blah at foo.pl line 4"
[download]

/s