# Returns:
# 1 - empty
# 0 - not empty
# -1 - doesn't exist
# Definition of "empty" -- no files/folders/links except . and ..
sub isEmpty{
   my ($dir) = @_;
   my $file;
   if (opendir my $dfh, $dir){
      while (defined($file = readdir $dfh)){
         next if $file eq '.' or $file eq '..';
         closedir $dhf;
         return 0;
      }
      closedir $dfh;
      return 1;
   }else{
      return -1;
   }
}