package ExistingPackage;

$var = 'foo';

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

1;