my $in = FileHandle->new($ARGV[0]);
my $line;
while ($line = $in->getline){
	print "$.\n" unless ($. % 10000);
}