opendir( my $dirh, $dirname ) 
    or die( "can't opendir '$dirname': $!" );

my @filenames = readdir( $dirh );

# check that readdir returned values
# grep through names, etc...