#!/usr/bin/perl -w

use strict;
if ( @ARGV ) {
    for my $file ( @ARGV ) {
        $. = 0;
        open( I, $file ) or do {
            warn "$0: open failed for file $file: $!\n"; 
            next;
        }
        while (<I>) {}
        printf( "%8d %s\n", $., $file );
    }
} else {
    while (<>) {}
    printf( "%8d\n", $. );
}