BEGIN {
    use overload;
    overload::Method "*{}" => sub {
        print "Overloaded\n";
    };
}   

sub test () {
    print "Not Overloaded\n";
};  

test();