Select Code to Download

# corrected original
my ($value1, $value2, $value3) = (1..3);
...
        ]),
    );

my @names = (qw(name1 name2 name3));

...
}

print $cgi->Tr({ -align=>'LEFT', -valign=>'TOP'}, row(\@names, \%cells
+));