#!/usr/athena/bin/perl

require 'finddepth.pl';

&finddepth(<~ftp/pub/usenet-by-*>);

sub wanted {
    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -d _ &&
    (rmdir($_) && print "Removed $name.\n");
}