use CGI;

my $query = new CGI;

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