Monks
I have around 40 modules to load in a script, instead of hardcoding I want to load them dynamically (read the directory and use the modules)
I'm able to get the module names but the script throws an error when i do "use $fmodule"
Please point me to the right direction. Below is the sample script
#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
BEGIN {
my $path = '/path/ABC/*.pm';
my @files = < $path >;
foreach my $mod(@files){
my($filename, $directories, $suffix) = fileparse($mod);
$filename=~s/\.pm//gx;
use $filename;
}
}
I get the following error when the script is executed
syntax error at t.pl line 13, near "use $filename"
BEGIN not safe after errors--compilation aborted at
Please let me know the correct way of loading the modules.