Select Code to Download

sub p1 {
    our $persistant;  $persistant = "init" unless defined $persistant;
...

    return $persistant.
}

package niffty;

sub new { bless { persistant => "init" } }
sub p1 { my $this = shift; $this->{persistant} .= "."; 
    return $this->[persistant}; }