sub factory { my $class_name = shift; my @args = @_; return $class_name->new( @args ); } my $foo = factory( 'Class1', $arg1 ); my $bar = factory( 'Class2', $arg2 );