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

##</code><code>##

    $ENV{PAR_0} = $filename; # for Pod::Usage
    { do 'main';
      CORE::exit($1) if ($@ =~/^_TK_EXIT_\((\d+)\)/);
      die $@ if $@;
      exit;
    }