#!/usr/bin/perl

use strict;
use warnings;
use File::Find::Wanted;

my @files = find_wanted( sub { -f && /\.log$/ }, 
                  '/var/log' );
if (@files) {
    foreach my $file(@files) {
        print $file, "\n";
  }
}
else {
    print "Sorry. Could not find requested files\n";
}