perl -E'sub x(\$){}; &x("hallo")'