#!/usr/bin/perl
use strict;
use warnings;
our $var = 1;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
our $var = 10;
print "\$var is $var\n";
do "file1.pl";
print "\$var now is $var\n";

##</code><code>##

poletti@flaviox ~/sviluppo/perl> perl file2.pl
$var is 10
$var now is 1