use Fcntl ':mode';
print "It's a directory!" if S_IFDIR( (stat($file))[2]);