01: #!c:\Perl\bin\perl
02: use warnings;
03: use strict;
04: use CGI ':standard';
ED: use constant CONSTANT1 => '../perlscript1.pl';
ED: use constant CONSTANT2 => '../perlscript2.pl';
05: my $htmlPage = CGI->new;
06: 
07: print "\n<p>ID/&#65418;&#65439;&#65405;&#65436;&#65392;&#65412;&#65438;&#12434;&#24536;&#12428;&#12383;&#26041;&#12399;";
08: print $htmlPage->a( { -href => CONSTANT2
09: 		, -target => '_self' }, '&#12371;&#12385;&#12425;' );
10: print "</p>\n<p>";
11: print $htmlPage->a( { -href => CONSTANT1
12: 		, -target => '_self' }, '&#21033;&#29992;&#35215;&#32004;' );
13: 	print "</p>";