print "Content-type: text/html\n\n"; #### print header(); #### #!/usr/bin/perl use warnings; use CGI qw(:standard); print header(); print qq~ TPD-UTA TESTER
~;