Select Code to Download

sub really_big_form {
    my $q = shift;
...
    }
    # ...
}

sub really_big_form {
    my $q = shift;
...
    };
    # ...
}