#!/usr/bin/perl

use strict;
use warnings;

use FileHandle;

my $iam = $0;
my $fh = new FileHandle;
open($fh, "<", $iam) or die "Can't open myself:  '$iam' ($!)\n";

my $cnt = 15;
while (my $line = <$fh>) {
    chomp $line;
    printf "%2d:  %s\n", (10 / $cnt--), $line;
}