sub invoice { my $invoice_data = shift; my $items_html = invoice_items($invoice_data->{items}); my $invoice_number = $invoice_data->{number}; my $html = <
$invoice_number
$items_html
HTML return $html; }