#!/usr/bin/env perl

$update = 1;

foreach (<*>) {
  -d or next;
  -e "$_/DONE" or next;
  -e "$_/raw.h5" or next;
  if (-s "$_/raw.h5" < 1000000) {
      chdir $_;
      system "pwd";
      system "rm *.dat";
      system "rm DONE";
      system "rm raw.h5";
      system "subslurm";
      chdir "..";
  }
}
