eval.pl

#!/usr/bin/env perl
use strict;
use warnings;

sub return_eval {
    return eval { die } or do { die "does not get to here" };
}   

return_eval();