use Fcntl ':mode';

my $mode = ...;
if (S_ISDIR($mode)) {
  # directory
  ...
}