Select Code to Download

    my %p = ( outputdir     => undef,
              rptfmt        => 'html',
...
.....

my $rpt = Report->new($p{title}, $p{headers}, $p{data});

sub new {
    my ($class,$title,$head,$data,$info) = @_;
...
    #$rows = $#{@$data} if $data || ref $data eq "ARRAY" || ref $$data
+[0] ne "ARRAY";

    my ($cols,$rows,@justify) = ($#{@$head},$#{@$data});