<form action="http://domainname.net/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td><font face="Arial, Helvetica, sans-serif" size="2">Datensatznummer zum kopieren:</td><td><input type="text" name="nr="></font></td></tr>
</table></form>
<perl>
if($nr){
   get "Id==$nr", "control1";
   while (get_next("control1"))
   {
       %_put=%_loop;

      $_put{_amount}=1;

      put undef, "control1";
  }
}
</perl>