#!/usr/local/bin/perl  
print "Content-type: text/plain","\n\n";

print "Request : $ENV{'QUERY_STRING'} \n";

$filename = param("filename");
$buf      = param("buf");

print "filename = $filename \n";
print "buf = $buf \n";
