#!/usr/bin/perl
@colors=( "red", "yellow", "green", "magenta", "blue", "cyan", "orange", "black", "white" );
print 'Content-type: text/html
Existing Rolling Icons
';
opendir(DIR,".");
@gif = readdir(DIR);
closedir(DIR);
foreach $icon ( @gif )
{
if ( $icon !~ /.*\.gif$/ ) { next; }
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($icon);
print "$icon ![](\"$icon\")
($size Bytes)
\n";
}
print '
';