package ValamiUj; sub new { my $self = {}; bless $self; $self->{elso} = 1; # ez {,,elso''}-vel egyenértékű $self->{ize} = 42; return $self; } sub kiir { my $self = shift; my @keys = @_ ? @_ : sort(keys(%$self)); foreach $key (@keys) { print ,,\t$key => $self->{$key}\n''; } }És ennek hívása:
use ValamiUj; $obj = ValamiUj::new(); $obj->kiir(); # C++ stílus kiir obj ,,elso''; # ,,print'' stílus