Select Code to Download

    my @phn = Phones->load($pcode);
    Phones->show_all;
    print $q->hidden("hide_phone", @phn);

Phones->get_param;

package Phones;
my @phones;
...
        $_->show;
    }
}