$dir = 'modules';
$mod = 'test';
$pkg = sprintf("%s::%s",$dir,$mod);
require $pkg;

print test::func(), "\n";

##</code><code>##

#code in modules\test.pm
package test;

sub func()
{
  print "hello from test\n";
}
1;