sub get_dir_list {
        my ($him,@files) = @_;

        my %alldirs;

        for my $file (@files) {
                $file =~ s|/[^/]+$||;
                while (-d $file) {
                        $file =~ s|/([^/]+)$||;
                        my $last = $1;

##</code><code>##

 $file =~ s|/([^/]+)$|| or last;