Unquoted string "hr" may clash with future reserved word at ./search.cgi line 116.
Bareword "RIGHT" not allowed while "strict subs" in use at ./search.cgi line 108.
Unquoted string "hr" may clash with future reserved word at ./search.cgi line 122.
syntax error at ./search.cgi line 126, near "}["
Unquoted string "hr" may clash with future reserved word at ./search.cgi line 131.
Execution of ./search.cgi aborted due to compilation errors.


##</code><code>##

#!/usr/local/bin/perl -wT
use strict;
use CGI;
...
sub begin_html
  {
    print start_html( -head=>meta({-http_equiv => 'Content-Type',
				   -content => 'text/html'}),
		      -title=>'Search Results',
		      -BGCOLOR=>'white',
		      -Link=>'black',
		      -vlink=>'black',
		      -alink=>'black');
    print table({ -border=>undef, -width=>'100%'},#line 108
		Tr(
		   [
		    td(['Information Technologies']),
		    td({-align=>RIGHT},['Administration']),
		   ]
		  )
		);
    print hr; #line 116

  }

sub end_html
  {
    print hr; #line 122
    print table({ -border=>undef, -BGCOLOR=>'#005533'},
		Tr(
		   [
		    td({-align=>CENTER, font({color=>'white'})}['IT']), #line 126
		   ]
		  )
	       );
    print hr; #line 131
    print end_html;