$SIG{ __DIE__ } = sub { $b=join '|',caller(0);Win32::MsgBox ("Error :  @_ ($b)" ,  0, $0 )  } ;