Perl project for Net-A-Porter interview task