#!/usr/bin/perl

use lib '/home/max/berezin/bin';
use CGI qw(:standard);

#***************************************************************
# Main
#***************************************************************
{
  if ($ENV{'REQUEST_METHOD'} eq "GET")
    { $in = $ENV{'QUERY_STRING'}; } 

  elsif ($ENV{'REQUEST_METHOD'} eq "POST")
    { read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); }

  # split returned data at & or ;
  @in = split(/[&;]/,$in); 

  # begin building web page
  print "Content-Type: text/html\r\n\r\n";
  print "<html> <head>\n";
  print "</head>\n";  print "<body>\n";

  foreach $field ( %ENV )
  {
    print "<br> $field $ENV( $field)";
  }

  print "\n";
  print "</body> </html>\n";
  #  end of web page generation
}

