# !/bin/perl -w 


$dir = "C:\\temp"; 

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

# !/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

opendir my $dh, $dir or die "$dir: $!\n";
my @wanted = grep { m/\.(?:pd|ti)f\z/ } readdir $dh;
closedir $dh;

if ( @wanted ) {
  local $,= local $\ = $/;
  print "Folgende Dateien gefunden:",
    @wanted;
}
else {
  print "nix gefunden!\n";
}

  # find all the .pm files in @INC
  my @files = File::Find::Rule->file()
                              ->name( '*.pm' )
                              ->in( @INC );