X:\myPerl\test>uname -a
WindowsNT EPHARMA013 0 5 x86
X:\myPerl\test>wc -l < disco.txt
     13

X:\myPerl\test>wc -l disco.txt
     13 disco.txt