Select Code to Download

# create and fool around with an array
my @rray = ();
...
push @$arrayref, "bar";
print $arrayref->[1], "\n";
#prints "bar"

while (my $ref = $sth->fetchrow_hashref ()) {

...
        end_form()
    );
}