use Win32;

$msg = "Test of Box";

Win32::MsgBox($msg, 0 | MB_ICONINFORMATION, 'Just an Example');