use Win32;
my $ERROR_OK_BOX=16;	    # Red Error X box with an ok button

Win32::MsgBox("Some errors deteted, click Ok to end program", 
               $ERROR_OK_BOX,"some_title"  );
print "program now exiting\n";