use Fcntl ':mode';

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