http://qs321.pair.com?node_id=798650

chanakya has asked for the wisdom of the Perl Monks concerning the following question:

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.