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