#!/usr/bin/perl -Tw

use CGI qw(:standard);
use strict;
$| = 1;

print header("text/plain");
print "\$0 is $0\n";
print "It is now ", scalar localtime(time), "\n";