in reply to If statements with CGI.pm tables

Try the ternery operator instead:
print table ( $x ? Tr ( td ("1"), td ("2"), ) : Tr ( td ("3"), td ("4"), ) );

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)