More playing around with my Perl stuff