Select Code to Download

package MyExceptions;

...
);

1;

package ReportGenerator;

...
   #Here is want to check of $result and throw an exception of the kin
+d MyExceptions::RegionNotFound->throw(error => 'bad number');
#how do I do it??
}

$Report->CheckResult($ABC->Command(100,100),"Someinfo")