c:\test>type dealer\*.pm dealer\x.pm package config; our $dealer = 'x'; dealer\y.pm package config; our $dealer = 'y'; dealer\z.pm package config; our $dealer = 'z'; c:\test>perl -E"my $p=shift; require qq[dealer/$p.pm]; say $config::dealer" x x c:\test>perl -E"my $p=shift; require qq[dealer/$p.pm]; say $config::dealer" y y c:\test>perl -E"my $p=shift; require qq[dealer/$p.pm]; say $config::dealer" z z