#!c:/perl/bin/perl.exe
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
my $file = 'undersite/1.txt';
my $html = new CGI;
print $html->header('text/html');
print $html -> start_html();
print $html -> start_form();
print $html -> p("Hi");
print $html -> p({}, "<a href=\"$file\">text file link</a>");
print $html -> end_html();
print $html -> end_form();