use Modern::Perl;
use File::Find::Rule;

my $directory = '/var/opt/xim/syslogs/';
my $age = time - 12*60*60;

unlink for File::Find::Rule->file()
                           ->name('Syslogd*')
                           ->mtime("<$age")
                           ->maxdepth( 1 )
                           ->in($directory);