#!/usr/bin/env perl

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