Hmmm... Interesting. This is the actual code, where $directory is hard coded above. The require line (require $file) was broken until I fixed the taint checking.

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();
  }
}
[download]