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