perl -we "open F,'CON:';while (<F>){}"