#!/usr/bin/perl -w 
########################################################################

use strict;

my $file=$0;
my $line=1;

open(FH,"$file") or die $!;

print "Content-type: text/plain\n\n\n";
while (<FH>) {
  printf "%d:%s",$line++,$_; #  $_ vs. <FH>
}