确定目录的用户/组所有权

我有一个Perl脚本,它将在目录上执行一些操作,我只等待它在当前用户(例如,执行脚本的用户)拥有所有权的目录上运行。

我试过以下方法:

...
my $user = getlogin();
opendir(HANDLE, $path) or die ("No such directory: $path");
foreach my $directory (readdir HANDLE)
{
    opendir(WORKING_DIR_HANDLE, "$path/$directory") or die ("!!!!!!!");
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat(WORKING_DIR_HANDLE);
    my $owner = getpwuid($uid);
    if( $owner eq $user )
    {
      ...
    }
}
...

代码在大多数情况下都有效。但是,对stat()的调用返回未定义的值。根据Perl文档,我认为我正在正确地进行stat()调用:

* stat FILEHANDLE
* stat EXPR
* stat DIRHANDLE
* stat

 Returns a 13-element list giving the status info for a file, either the file opened via
 FILEHANDLE or DIRHANDLE, or named by EXPR. If EXPR is omitted, it stats $_ . Returns the 
 empty list if stat fails. Typically used as follows:

我还尝试使用文件名将其作为expr,得到相同的结果。我只是缺少一些明显的东西吗?还是有其他方法可以做到这一点?我更喜欢不需要安装第三方Perl模块的解决方案。