Select Code to Download

package MyPackage;
sub new {
...

my $object = MyPackage->new(); # create object
$object->called(1,2,3);    # call as an object method.