sub loadObjects {
  my $directory = shift;

  opendir(DIR, $directory)
    or die "Object Templates can't be loaded: Can't open $directory: $!";
  while (defined(my $file = readdir(DIR))) {
    if($file =~ /^(.*\.pm)$/) {
      $file = $1;
      $file = $directory."/".$file;


      my $file = $file;  # Cheap hack


      require $file;
      $file =~ s/\//::/g;
      $file =~ s/\.pm$//;
      if($file->isa('Objects::Parent')) {
        my $tempObject = $file->new();
        $tempObject->doSomething();
      }

    }
  }