eval{$_[0] ||= 'blah'}
if ( $@ ) {
    # handle exception....
    print "blech!\n";
}
# else .....