foreach my $mod(@files){
    my($filename, $directories, $suffix) = fileparse($mod);

    # don't do this - we need the actual filename!!!
    # $filename=~s/\.pm//gx;

    require $filename;
  }