...
use Fcntl ':mode';
my $a = $sftp->do_stat($path);
warn "$path is a directory " if S_ISDIR($a->perm);