use p2;

my $obj = p2->new();
say $obj->get_var1() . "\n";
say $obj->set_var1('changed') . "\n";
say $obj->get_var1() . "\n"