Perl shell utils