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