use strict;
use warnings;
use diagnostics;


my $m = bless{}, 'main';

# Exception fangen
eval{
	$m->foo;
};

if($@){ print $@ } # Uncaught exception from user code: ...
# haha, von wegen uncaught!!!

# ohne diagnostics: Can't locate object method "foo" via package "main"
# das klingt schon viel besser ;)