opendir (SIZEDIR, "$oxygen/$sizestr") or die "Could not open dir $sizestr\n";
foreach my $cat (readdir SIZEDIR) {
next if $cat eq '.' or $cat eq '..';
opendir (SIZEDIR, "$oxygen/$sizestr") or die "Could not open dir $sizestr\n";
foreach my $cat (readdir SIZEDIR) {
next if $cat eq '.' or $cat eq '..';
opendir (CATDIR, "$oxygen/$sizestr/$cat") or die "Could not open category dir\n";
foreach my $icon (readdir CATDIR) {
$icon =~ s/\.png$//;
opendir (CATDIR, "$oxygen/$sizestr/$cat") or die "Could not open category dir\n";
foreach my $icon (readdir CATDIR) {
$icon =~ s/\.png$//;