Update to Pet Fees Perl Script

Latest updates to Pet Fees on the Perl Script