#!/usr/bin/perl
use strict;
use warnings;

Tom->init;

package Tom;
sub init(){
  print "Calling init\n";
  print "$_\n" for(@_);
}

__OUTPUT__
Calling init
Tom