#!/usr/bin/perl
# Check if DONE
# Rok Zitko, rok.zitko@ijs.si, April 2008

my @files = <[1-9]*>;

foreach (@files) {
    my $dir = $_;
    if (-d $dir) {
	if(! -e "$dir/DONE") {
	    print "$dir not done yet.\n";
	}
    }
}
	
