#!/your/perl/here
use strict;
use warnings;
while (<>) {}
print "$.\n";