#!/usr/bin/perl print "Content-type: text/html\n\n"; my $time = scalar localtime(); print " Demo

Demo

The time is now $time . ";