perl -MFile::Find::Rule -e '@ARGV=File::Find::Rule->file("*.pm")->in(".");while(<>){print if /^\$VERSION/}' | wc -l