Gtk2->init(\@ARGV);

##</code><code>##

Gtk2->init();

##</code><code>##

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

Tom->init;

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

__OUTPUT__
Calling init
Tom