#!/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;
	}
	}