package niffty;

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