Select Code to Download

foreach $pair (@pairs) {
...
        $formdata{$key} = $value;
    }
}

open DATA, $data;

function changeLoc(formNum) {
    if ( document.forms[0].elements[formNum].options[document.forms[0]
+.elements[formNum].selectedIndex].value == "Corporate Home" ) {
...
    }
    document.forms[0].elements[formNum].selectedIndex = 0;
}

function changeLoc(formNum) {
    page = document.forms[0].elements[formNum].options[document.forms[
+0].elements[formNum].selectedIndex].value;
...
    }
    document.forms[0].elements[formNum].selectedIndex = 0;
}

sub update_foo {
    my ( $self, $data ) = @_;
...
    $self->{ _dbh }->commit if ! $self->{ _error };
    return $return;
}