Perl Untilities