Perl : Check if directory is empty

Here is some perl code to do that

#!/usr/bin/perl -w

my $path="/var/tmp/zt/a";

opendir DIR, $path;
if(scalar(grep( !/^\.\.?$/, readdir(DIR))) == 0){
    printf("Dir empty\n");
}
else  {
    printf("Dir not empty\n");
}
closedir DIR;