Select Code to Download

$ perl -wle'sub f :lvalue { $x,$y } f()=(4,5); print $x,$y'
Useless use of a constant in void context at -e line 1.
...

$ perl -wle'sub f :lvalue { $x,$y } (f())=(4,5); print $x,$y'
45