my $lc;
for(open(F, $0); !eof(F) || !($lc=$.) || !close(F) ; <F> ){}
print "$lc\n";