#!/usr/bin/perl -w

sub testrun() {
    my $r = run('noexit');
    print "ret: $r\n";
}
sub run {
    my $noexit = shift;
    my $retorexit = $noexit ? \&return : \&exit;
    &$retorexit(1);
}
testrun();