#!c:\Perl\bin\perl
use warnings;
use strict;
use CGI ':standard';
use constant CONSTANT1 => '../perlscript1.pl';
use constant CONSTANT2 => '../perlscript2.pl';
my $htmlPage = CGI->new;

print $htmlPage->a( { -href => CONSTANT2
					, -target => '_self' }, 'こちら' );
print "</p>\n<p>";
print $htmlPage->a( { -href => CONSTANT1
					, -target => '_self' }, '&#21033;&#29992;&#35215;&#32004;' );
print "</p>";