#!/usr/bin/perl -w
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;#Data coming in from
my $buffer;
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
use CGI qw/:standard/;
use strict;
use CGI::Carp qw(fatalsToBrowser);
print header();
print "";
print ""; #//-->
print "