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