#!/usr/bin/perl
#
# Copy input to output, numbering the lines.

while (<>) {
	printf "%5d %s", ++$l, $_;
}