use strict;
use warnings;

package ExistingPackage;

our $var = 'foo';

sub print_it {
   print("$var\n");
}

1;