Useful Perl Codes for System Administrators