use strict ; use warnings ; use Win32 ; sub die_handler { Win32::MsgBox ("Error : @_" , 0, $0 ) } ; eval {die "ARRG" }; die_handler ("$@") if $@; print "Ended OK\n";