use strict;
use Data::Dumper;

BEGIN {
   # scan the current directory
   eval{require $_} for <*.pm>;
};

my @class = (
   Foo->new,
   Bar->new,
   Baz->new,
);

print Dumper $_ for @class;