$ perl -wle'sub f { print("@_"); } f (5) + 4'
Useless use of addition (+) in void context at -e line 1.
5