sub new {
  my $self = shift;
  print "I was invoked by: $self\n";
}

main->new;

__output__

I was invoked by: main