Create ps_perl.pl