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

##</code><code>##

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