use Win32;
($app = $0) =~ s/.*[\/\\]//g;
$message = $ARGV[0] || "$app syntax: $app <Message> [Title]";
$type=0;
$caption = $ARGV[1] || "Message";
Win32::MsgBox($message,$type,$caption);