#!/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";
}
[download]

my $cmd = q!$sethost "find /var/log/tmp/ -iname '*.file' -type f -exec
+ ls -hl \{\} \;!;
print "Trying to run\n$cmd\n";
print qx!$cmd!;
[download]

hrm have a feeling that won't work unless I close the " somewhere. But is that all one command excluding the print statements. All I can see that's different is removing the ` and adding q!