#!/usr/bin/perl use strict; use warnings; use CGI qw(:all); #Create a new CGI object my $cgi = new CGI; print "Content-type:text/html\n\n"; print << SOFTWARE DIAGNOSTIC >Generating Self-Referential URLs

SoftDiagno
EndOfHTML