#!/usr/bin/perl
package B;
use strict;
use A;
print "$var1\n";