use Win32;

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