sub size_cmp($$) {
    return (stat($_[0]))[9] <=> (stat($_[1]))[9];
}
sub get_files($) {
    return glob($_[0].'/*.{jpg,jpeg,gif,png}');
}
sub main {
    $col=0;
    print "<table>\n<tr>\n";
    @imgs = get_files($dir);
    for (@imgs) {
        print "\t<td width=\"200\">\n<img src="$Path/$_"></td>\n";
        print "\n</tr>\n<tr>" if 0 == (3 % ++$col);
    }
    print "\n</tr>" if 0 != (3 % $col);
    print "</table>\nthere are ".@imgs." thumbs<br>\n";
}