package Foo;

bar(1,2,3);

sub AUTOLOAD {
    my @args = @_;
    my ( $package, $func ) = split "::", $AUTOLOAD;
    print "ARGS: @args\nPKG:  $package\nFUNC: $func\n";
}