$ perl -le "sub f{warn@_} f 1" 1 at -e line 1.