perl -wle 'open (F, ">test"); print F chr(26) . "Wont get in"; close(F);'

##</code><code>##

  
perl -wle "open (F, '>test'); print F chr(26) . 'Wont get in'; close(F);"