... your tidy Perl code goes here ...