perl C:\msgbox.pl

##</code><code>##

use Win32;

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

return($val)

##</code><code>##

Can't return outside a subroutine at C:\msgbox.pl line 5.