#!/usr/bin/perl

use strict;
use warnings;

my $dirname = 'C:\temp';

opendir ( my $dh, $dirname ) || die "Error in opening dir $dirname: $!\n";

# fetch all filenames ending in .tif or .tiff
my @tif_files = grep { m/\.tiff?$/ } readdir $dh;

closedir $dh;

print "In directory $dirname are these tif files:\n",
  join "\n", @tif_files, "\n";

use File::Find::Rule;

my $dirname = 'C:/temp';
# find all the .tiff? files in $dirname
my @files = File::Find::Rule->file()
                            ->name( m{\.tiff?$} )
                              ->in( $dirname );