Practical Perl: Using Object Factories