Select Code to Download

 package Foo;

 sub new {
     my $package = shift;
...
     bless $object, $package; # De magie
     return $object;
 }

 my $object = Foo->new;
 # of
 my $object = new Foo;

 package Schaap;

...
 $dolly->blaat('Hallo');         # Schaap::blaat($dolly, 'Hallo')
 blaat $dolly('Ook dit werkt');  # Schaap::blaat($dolly,
                                 # 'Ook dit werkt');

 sub kleur {
     my ($self, $kleur) = @_;
...

 $obj->kleur("Blauw");
 print "De kleur is ", $obj->kleur(), ".\n"; # De kleur is blauw.