use strict;
use warnings;
use Data::Dumper;

our $config = do '/pathto/config.pl';

print $config->{'foo'};