Select Code to Download

SHELL = /bin/bash

...
compare:
    diff <(glob.pl | sort) <(readdir.pl | sort)
    diff <(glob.pl | sort) <(path.pl | sort)

#! /bin/bash
now=$(date +%s)
...
    done 2>/dev/null
    echo $d >&2
done

#!/usr/bin/perl
use warnings;
...
for my $dir (glob '???/') {
    say substr +(glob "$dir*/")[-1], 0, -1;
}

#!/usr/bin/perl
use warnings;
...
        say $date if $date->basename > $now;
    }
}

#!/usr/bin/perl
use warnings;
...
        say "$pdir/$date" if $date > $now;
    }
}

make glob    > /dev/null

...
real    0m0.440s
user    0m0.380s
sys    0m0.060s