
Pathologically Eclectic Rubbish Lister
	PerlMonks

by Flame (Deacon)

on Sep 01, 2001 at 19:21 UTC ( #109641=perltutorial: print w/ replies, xml )

Need Help??

Select Code to Download

<HTML>
   <HEAD>
      <TITLE>MyCode</TITLE>
...
      <A HREF="mypage.cgi">Go to My Page!</A>
   </BODY>
</HTML>

<HTML>
   <HEAD>
      <TITLE>MySite: $title</TITLE>
...
      <A HREF="mypage.cgi">Go to My Page!</A>
   </BODY>
</HTML>

<HTML>
   <HEAD>
      <TITLE>MySite: $title</TITLE>
...
      <A HREF="$pagelink">Go to My Page!</A>
   </BODY>
</HTML>

<HTML>
   <HEAD>
      <TITLE>MySite: $title</TITLE>
...
      <BR>
   </BODY>
</HTML>

#Sub utemplate (use template)  Call only when ready to print.
sub utemplate {                                
...
}

1;

#!/usr/bin/perl

use CGI qw(:standard ); #Handy for printing header
...
$copyright = "(C) 2001 MyCompany";

&utemplate;

#!/usr/bin/perl

use strict;
...

#Continue with everything else you had to do

Node Status^?

node history
Node Type: perltutorial [id://109641]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others scrutinizing the Monastery: (10)

As of 2013-05-22 23:30 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?