#!/usr/bin/perl -w $potdfolder = "http://www.webgoonies.com/blog/potd"; $date = `date +"%F".jpg`; chop($date); $date2 = `date +"%B %e,%G"`; chop($date2); print "Content-type: text/html\n\n"; print ""; print " "; print ""; print "\n"; print "

"; if (-e "/home/threepts/public_html/blog/potd/$date") { print " $\"Photo$ "; } else { print "

"; } print "

$date2

"; print ""; print "\n"; # print ""; # print "Archived Photos\n"; print ""; print "";