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