#!/usr/bin/perl -w
use strict;
use vars qw( $filename );
($filename = shift) or die "Usage: $0 filename\n";
open(FIN,"$filename") or die "$0 : cannot read file \"$filename\"\n";
# assume it is a text file
while(<FIN>) { }
print  sprintf("%8s",$.) , " $filename\n";
close(FIN);
exit;