I am going to try to do a weird one now...

use File::Find;
find(sub {if(/^\d{4}.*\.html$/){print qq!<A HREF="$_">$_</A><BR>!;}}, 
+"/usr/html/");
[download]

Warning I am just doing this to see if I can cut down code... I am not claiming to be an expert or anythign... but if it works... YIPPEEE