#! /usr/bin/perl -w
use strict;
my $wkdir = '/var/sadm/install';
chdir $wkdir or die "Couldn't cd to $wkdir: $!\n";
open I, 'contents' or die "Couldn't open 'contents': $!\n";
my @line;
while (<I>)
{
    next if m{/usr d|/usr/lib d|/usr/openwin d};
    if (/ d /)
    {
        @line = split;
        system("chown -R $line[4]:$line[5] $line[0]");
    }
}
close I;  # be polite