If you realy wont to replace die you may like to try something simple like this.

open IN, "nofile1" or &kill("message");

sub kill{
    print "HANDLE the message";
    #And if you need to exit from here
}
[download]

Or is this missing something?