use CGI;
use strict;
use warnings;

print Tr ({align => "CENTER",
     valign=>"TOP",
     BGCOLOR=>"blue",
     font-color=> "yellow",
     FONT-FAMILY=> "verdana,arial,helvetica",
     FONT-SIZE=> "12"});



print Tr (-align => "CENTER",
     -valign=>"TOP",
     -BGCOLOR=>"blue",
     -font-color=> "yellow",
     -FONT-FAMILY=> "verdana,arial,helvetica",
     -FONT-SIZE=> "12");

__END__
Bareword "font" not allowed while "strict subs" in use at C:\Temp\oops.pl line 5.
Bareword "FONT" not allowed while "strict subs" in use at C:\Temp\oops.pl line 5.
Bareword "FONT" not allowed while "strict subs" in use at C:\Temp\oops.pl line 5.
Execution of C:\Temp\oops.pl aborted due to compilation errors.