$ cat >cfg.pl
$foo='/foodir/';
$bar='/bardir/';
$baz='/baz/dir/';

$ cat >cfg
#!/usr/bin/perl
my ($foo,$baz);
do 'cfg.pl';
print $foo,$/;
print $bar,$/;
print $baz,$/;

$ chmod 755 cfg
$ ./cfg

/bardir/

$

##</code><code>##

$ ./cfg
/foodir/
/bardir/
/baz/dir/
$