Perl Psudo