package p1;

my $var1 = 'var1-p1';

sub new {
    my $class = ref $_[0] ? ref shift : shift;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub get_var1 {
	return $var1;
}

1;