my $success = eval { 
    # your stuff here...
    1;
};