__FUNC__

sub __FUNC__ {
    my $stack_lvl = caller(1) ? 1 : 0;
    scalar((caller($stack_lvl))[3]) =~ s%^main::([^:]+)$%$1%r . '()'
}