Help for this page

Select Code to Download


  1. or download this
    sub new {
    my ($class, $self) = @_;
...
    }
    bless ($self, undef);
}
  2. or download this
    sub new {
    my ($class, $self) = @_;
...
    }
    bless ($self, undef);
}
  3. or download this
    package Jarich;
use strict;
...
        $age++;
}
print "RIP jarich.  1978-", 1978+$age, "\n";