#!/usr/bin/perl 
$|++
use strict;
use warnings;
open(my($fd),q(/usr/dict/words)) or die($!);
print qq(\r$.) while(<$fd>);
print qq(\n);
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.