Perl factory #3