Perl factory #7