#!/usr/bin/perl
#
# gizmo to find all packages that aren't required by any other packages.
# from freebsd-stable mailing list
#
open(PKGS, "ls /var/db/pkg |");                                                        
while (<PKGS>) {                                                                       
        chomp;                                                                         
        $files = `ls /var/db/pkg/$_`;                                                  
                                                                                       
        if (!($files =~ /REQUIRED_BY/g)) {                                             
                print;                                                                 
                print "\n";                                                            
        }                                                                              
}