Select Code to Download

#!/usr/bin/perl -w
use Data::Dumper;
...
    }
    return \@output;
}

<table border="0" cellpadding="2" cellspacing="0" width="140">
    <tr>
...
            </tmpl_loop></tr>
    </tmpl_loop>
</table>

sub disp_cal {
    my $self = shift;
...
    my $output = $form->output;
    return $output;
}