There's __LINE__ which gives you the line number of the current file (although that can be tricked with the #line directive), but I don't think Perl keeps a total count.
But I guess you could something in the spirit of:
my $lines = __LINE__;
$lines += (`wc -l $_` =~ /([0-9]+)/)[0] for values %INC;