rmdir $deleteregdir
  or die "$!: for directory $deleteregdir\n";