or download this
>perl -E"sub g { say +(caller 0)[4]?'':'no ', 'new @_; ', 0+@_, ' args
+: ', @_ } sub f { g(@_) } f('abc');"
new @_; 1 args: abc
>perl -E"sub g { say +(caller 0)[4]?'':'no ', 'new @_; ', 0+@_, ' args
+: ', @_ } sub f { &g } f('abc');"
no new @_; 1 args: abc