# !/bin/perl

use strict;
use warnings;

my $dir = "C:\\temp"; 

if(glob("$dir\\*tif")>0 || glob("$dir\\*tif")>0)
{ 
 print "Tif-files or Pdf-files available\n"; 
}
else
{ 
 print "Tif-files or Pdf-files not available\n"; 
}
exit