#!/usr/bin/perl

use CGI;

$q = new CGI;

$me = $ENV{SCRIPT_NAME};

print $q->header,  $q->start_html;

print qq{
  Click <a href="$me">here</a> to call me again.
};

print $q->end_html;