my $lines = __LINE__;
$lines += (`wc -l $_` =~ /([0-9]+)/)[0] for values %INC;