my $worked = eval {stuff};
if ($worked) {
    print "Yay!";
}
else {
    print "Boo!:  $@";
}