Right Perl script!

Whoops.