#!/usr/bin/env perl

<code>
my $processed_files = 0;
find({ wanted => sub {
        save_file($File::Find::name)
          if -f $_
          && $_ =~ /auth\.log$/ },
     follow => 1 },
     @ARGV
    );


##</code><code>##

my $processed_files = 0;
find(
  {
    wanted => sub {
      save_file($File::Find::name)
        if -f $_
        && $_ =~ /auth\.log$/
        && $File::Find::dir ne '/data/logs/master';
    },
    follow => 0
  },
  @ARGV
);