#! /usr/bin/perl
use strict;
use warnings;
my $dir = "/root/dir";
opendir(BIN, $dir) or die "Can't open $dir: $!";
my @array = grep { -T "$dir/$_" } readdir BIN;