opendir (BASEDIR, "$oxygen/$sizestr") or die "Could not open dir for size $size\n";
foreach my $cat (readdir BASEDIR) {
next if $cat eq '.' or $cat eq '..';
opendir (BASEDIR, "$oxygen/$sizestr") or die "Could not open dir for size $size\n";
foreach my $cat (readdir BASEDIR) {
next if $cat eq '.' or $cat eq '..';