# Modify these to enter the current data automatically my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime; $year += 1900; if (m'') { print '', "\n"; print '', "\n"; print '', "\n"; print '', "\n"; print '', "\n"; } s/\$projectname// unless (m//);