Select Code to Download

use strict ; 
use warnings ;
use Win32  ; 
$SIG{ __DIE__ } = sub { Win32::MsgBox ("Error :  @_" ,  0, $0 )  } ; 
die "ARRG" ;