Perl stuff I'm hacking