#!/usr/bin/perl
use strict;
use warnings;

my $n = 0;
while(<>) { 
	printf("%6d: %s",$n,$_);
	$n++;
}