Select Code to Download

while (($state, $sub) = each %States) {
    $sub->( $page eq $state );
}

sub show_secondstep {
    my $active = shift;
...
        -- print out hidden fields --
    }
}

sub show_secondstep {
    my $active = shift;
...
    }

}