iControl - Perl Virtual Show Script - pool () was not found error

From Comments Section: https://devcentral.f5.com/wiki/iControl.PerlVirtualShow.ashx   Error if no pool assigned to VIP   I am fairly new to perl   I have a many LTM's and a few VIP's that do...