package p2;

use p1;

our @ISA=qw(p1);

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

1;