#!/usr/bin/perl

use strict;
use CGI;

my $q = new CGI;

print "\nMethod :", $ENV{REQUEST_METHOD};
print "\nContent_Length : ", $ENV{CONTENT_LENGTH};

#binary file
open (FH, ">binaryoutput");
print FH $q->param() if ($q->param());
close(FH);