Help for this page

Select Code to Download

Select or download this

my $file = join "", <FH>;
my @rows = split /^\n/m, $file;
...
    print Tr({-bgcolor=>"#000066"}, td({-width=>298}, ["&nbsp;", "&nbs
+p;"]));
    print "\n";
}