#!/usr/local/bin/perl chop ($current_date = `/bin/date`); $script_name = $ENV{'SCRIPT_NAME'}; print "Content-type: text/html", "\n\n"; print "", "\n"; print "
", qq|Click here to run again!|, "\n"; print "", "\n"; exit (0);