$ perl -le '$0="foo"; print qx "cat /proc/$$/cmdline"'
foo