package Demo;
sub pirmas{
my ($obj, @param) = @_;
...
}
sub naujas{
my ($klase, $par1, $par2) = @_;
...
return bless {};
}
$x = naujas Demo(1, 2); # Demo::naujas parametrai: par1=1, par2=2 pirmas $x 3, 4; $x->pirmas(3,4); # tas pats