package Foo;
our $AUTOLOAD;

sub new {bless {}, shift}

sub AUTOLOAD {
   my $self = shift;
   my ($method) = $AUTOLOAD =~ /([^:]+)$/; # no need for s///
   print "$method was called\n";
}

package main;
new Foo;