on unix: perl demo.pl | wc -l
windows: perl demo.pl > nul