#!/usr/bin/perl
$line=0;
while(<>) {
    if ($line==0) {
	$line = 1;
    } else {
	$line=$line+1;
	print $line, "  ", $_;		
    }}
