#!/usr/bin/perl
use strict;
use warnings;

my $UNIT_DIR = '/home/vize/units';

# Get all units in $UNIT_DIR
my $dh;
opendir $dh, $UNIT_DIR or die "Couldn't open dir '$UNIT_DIR': $!";
my @units = grep { !/^\.\.?$/ } readdir $dh;
closedir $dh;

if ( @units ) {
    foreach my $unit (@units) {
        my $moving_code_dir = glob("$UNIT_DIR/$unit/moving_code_*");
        my $moving_code = (split("/",$moving_code_dir))[-1];
        if ( $moving_code_dir ) {
            print "$unit good\n";
        }
        else {
            print "$unit bad\n";
        }
    }
}