print table ({-border => 0}, Tr ({-align => "CENTER", -valign=>"TOP", -BGCOLOR=>"silver", -style=>"font-family: verdana; font-size: 10pt;"}, th ({-width=>"50"},("Customer ID")), th ({-width=>"50"},("Customer Order")), th ({-width=>"50"},("Purchase Order")), th ({-width=>"90"},("Ship Date")), th ({-width=>"40"},("Carrier")), th ({-width=>"150"},("Tracking Number")), th ({-width=>"60"},("Item Number")), th ({-width=>"50"},("Wt")), th ({-width=>"50"},("Invoice Number")), th ({-width=>"20"},("Qty")), th ({-width=>"50"},("Customer Item Number")) )); foreach my $row (@$customer) { print table ({-border => 0}, Tr ({-align=>"center", -valign=>"TOP", -style=>"font-family: verdana; font-size: 10pt;"}, td ({-width=>"60", -align => "center"},(escapeHTML ($row->{customer_id}))), td ({-width=>"70", -align => "center"},(escapeHTML ($row->{customer_order}))), td ({-width=>"80", -align => "center"},(escapeHTML ($row->{purchase_order}))), td ({-width=>"90", -align => "center"},(escapeHTML ($row->{ship_date}))), td ({-width=>"40", -align => "center"},(escapeHTML ($row->{carrier_id}))), td ({-width=>"175", -align => "center"},(escapeHTML ($row->{tracking_number}))), td ({-width=>"45", -align => "center"},(escapeHTML ($row->{item_number}))), td ({-width=>"50", -align => "center"},(escapeHTML ($row->{weight}))), td ({-width=>"50", -align => "center"},(escapeHTML ($row->{invoice_number}))), td ({-width=>"20", -align => "center"},(escapeHTML ($row->{quantity_shipped}))), td ({-width=>"50", -align => "center"},(escapeHTML ($row->{customer_item_number}))) ));