Using Perl Artistic License 2.0 for this piece of code