Select Code to Download

while ( my ( $name, $height, $weight ) = $sth->fetchrow_array() ) {
   my $ratio = $height/$weight;
   send_to_html( $name, $ratio );
}

my ( $name , $height, $weight );
my $ratio := $height/$weight;     # I would presure that 
...
                                  # done under -w/strict
send_to_html( $name, $ratio ) 
    while ( $name, $height, $weight ) = $sth->fetchrow_array() );