Select Code to Download

package MyClass;
use strict;
...
   my $self = {};
   bless $self, $class;
}

#!/usr/bin/perl -w

...

my ($d1, $d2) = (MyClass->new, MyClass->new);
...

perldoc perlbot
perldoc perltoot
perldoc -f bless