#!/usr/bin/perl -w

use strict;
open(TEST,'test.pl');
my @test = <TEST>;
my $line_number = 0;
foreach (@test) {
    ++$line_number;
    print "$line_number: $_";
}