if (scalar `ls $dirname`) {print "Directory $dirname is not empty\n"};