Select Code to Download

sub register {
    my ($eref, $fref) = @_;
...
#  Call it like so:
#
register(\%error, \%FORM);