I am terrible at Perl, but everyone has to start somewhere