>>50
FILE: text.pl
my %config = (datadir => 'pastdir');
sub getconfig {
return \%config;
}
1;

FILE: main.pl
require('test.pl');
my $config = getconfig();
print $config->{datadir};

これでいいのか？