$ perl -le'sub f { print("@_"); } f (5) + 4'
5