#!/usr/bin/perl

@time = localtime (time());

print "Content-type: text/html\r\n\r\n";
print "The current server time is $time[2]:$time[1]:$time[0]\n";