package MyDie;

my $die_handle = \*STDOUT;

sub mydie {
    my $message = shift;
    # If in eval block, throw exception ...
    $^S and die $message;
    # ... otherwise print message to handle and exit.
    print {$die_handle} $message, "exiting now\n";
    exit 1;
}

1;