#! /usr/local/bin/perl # # $| = 1; print "Content-Type: text/html\n\n\n"; chop ($time = `/bin/date '+%r'`); print "Current Time here\n"; print "

The current time is now: $time

"; print "";