use Win32;

$returnvalue = Win32::MsgBox("Hello World",4,"WindowTitle");
print $returnvalue;