sub get_files {
    return sort {
        (stat($a))[9] <=> (stat($b))[9]
    } glob($_[0]."/*.{jpg,jpeg,png}") or
         die($_[0]." contained no images\n");
}