use strict;
my $wibble;
do "include.pl";
print $wibble;

##</code><code>##

no strict "vars";
do "include.pl"
use strict "vars";