use strict;
use warnings;

my $foo = 17;
print "Before do: \$foo = $foo\n";
do 'foo.pl';
print "After  do: \$foo = $foo\n";