$ perl -le '$0="foo"; print <>' /proc/self/cmdline 
foo