#!/usr/bin/perl
print "Content-type: text/html\n\n";
foreach my $scalar (<STDIN>)
{
       print "Data received is: " . $scalar . "\n\n";
}