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