use Win32;

$caption = "asg report";
$val = Win32::MsgBox("data for 22nd not found.\n Do u want to continue?", 4, $caption);