Here is a Perl version of Numbering A File:
perl -lne 'printf "%3d : %s\n", $., $_' filename > filename.out