use strict;
use File::Find;

if ($ARGV[0] eq "") { $ARGV[0]="."; }

find (sub {
  if ($File::Find::name =~ /\.master$/i) {
    print "Found $File::Find::name\n";
  }
}, @ARGV);