Select Code to Download

#!/usr/bin/perl

...

#i've passed Tr an _array reference_
print Tr([td($foo), td($bar)]), "\n";

print Tr( [ td($req.$key),
            td(input(-type=>$input_html{$key}, -name=>$key))
          ] );