print "<td><a href=\"first.pl?item=select\">Select Info</a></td>";
 print "<td><a href=\"first.pl?item=update\">Update Info</a></td>";

##</code><code>##

if (param("item") eq "select")
 {
  &retrieve_data;
 }
elsif (param("item") eq "update")
 {
  &update_data;
 }
sub retrieve_data
{