package p2;

use p1;

our @ISA=qw(p1);

sub set_var1 {
    my $self = shift;
    my $new_var1 = shift;
    $p1::var1 = $new_var1;
    return $p1::var1;
}

1;