#!/usr/bin/perl -w
###########################################
# linenum - Print listing with numbers
# Mike Schilli, 2007 (m@perlmeister.com)
###########################################
use strict;

my @lines = <>;

my $numlen = length scalar @lines;

my $num = 1;

for my $line (@lines) {
    printf "%0" . $numlen . "d %s", 
           $num++, $line;
}