if($file =~ /^(\w*\.pm)$/) {
  $file = $1;
  $file = $directory."/".$file;
  require $file;
  $file =~ s/\//::/g;
  $file =~ s/\.pm$//;
  if ($file->isa('Objects::Parent')) {
    my $object = $file->new();
    $object->doSomething();
  }
}