Select Code to Download

package p1;

...
}

1;

package p2;

...
}

1;

use p2;

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

var-p1
changed
changed