#use strict;
use vars qw($AUTOLOAD);

    &mysub_('foo','bar');

sub mysub{
    #do something...
    print "in mysub\n";
    return;
}
sub AUTOLOAD{
    my @args = @_;
    $AUTOLOAD =~ /.*::(.*)_/
    my $sub_name = $1;
    #no strict 'refs';
    eval{&$sub_name(@args)};
    #use strict 'refs';
    print @;
    #do something with $@ to check runtime errors
}