#!/usr/local/bin/perl -w
use File::Find;
@files = ();
sub wanted
{
if (/^Makefile.PL$/)
{
push(@files,"$File::Find::dir/$_");
}
}
find(\&wanted,".");
@ARGV = @files;
$^I = ".old";
while (<>)
{
if (s/\$Version\b/\$myVersion/g)
{
print STDERR "$ARGV:$.:$_";
}
print;
}