my $count = $.;  # input line number