use strict;
use warnings;


testing("ARG1");


sub AUTOLOAD
{
    my $pg = our $AUTOLOAD;
    print "Function Name ->$pg<-\n";
    print "Arguments ". join "\n", @_;
}