# stuff.pl
$fred = 'foo';
$barney = 'bar';
# ...

##</code><code>##

#! /usr/bin/perl
# no strict unless "stuff.pl" my's everything.
# (In which case all the vars will be lexical here.)
do 'stuff.pl' or die "Couldn't read the stuff";
print $fred, "\n";