#!/usr/bin/perl

# Test 3

$path = "/var/www/html/bprentice/Test/Test3/Test3.dat";

$size = $ENV{'CONTENT_LENGTH'};
$filename = ">" . $path;
read (STDIN, $data, $size);
$| = 1;
open FILE, $filename;
flock(FILE, 2);
print FILE $size;
print FILE $data;
close FILE;

$message = "Ok\n";
print "Content-type: text/plain\n";
print "Content-length: " . length($message) . "\n\n";
print $message;

exit(0);