#!/opt/local/bin/perl

use File::Iterator;
use File::Basename;
use DateTime;

my $dt   = DateTime->now;
my $date = $dt->ymd;
my $time = $dt->hms;

print "<!DOCTYPE html>\n\n";

print "<html>\n\n<head>\n";

print "\t<link rel='stylesheet' type='text/css' href='http://www.deckerd26354.net/sites/shared/webtemplates/Mine.css'>\n";

print "\t<title>Smilies Folder</title>\n";

print "</head>\n\n";

print "<body>\n\n<h2>My Smilies Folder</h2>\n";

print "<address>" . "\t" . $date . "\t" . $time . "</address><br>\n\n";

my @files = grep ( -f ,<*.gif>);
 foreach $file (@files) {
  print "<img style='border:1px solid black;' src='$file'>\n";
  }

print "</body>\n</html>";