#!/usr/bin/perl

use strict;
use warnings;
use lib qw(.);
use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html\n\n";

opendir(DIR,"./Perl") or die $!;
my @pm_files = grep{/\.pm$/}map{"./Perl/".$_}readdir(DIR);
closedir DIR;

for my $module(@pm_files){
  require $module;
}

my $module_i_want_to_use = "Perl::Test";

my $subroutine = $module_i_want_to_use."::get_name";

{
  no strict 'refs';
  &{$subroutine}();
}

package Perl::Test;

sub get_name{
  print "Hallo";
}

1;