my $linecount = $. ;