#!/usr/bin/perl
# voicecloud sample perl script to grab POST variables
# April 10, 2008
# support@voicecloud.com
#

use CGI;

# Create the CGI object
my $query = new CGI;

# Output the HTTP header
print $query->header ( );


open(O,">>datagrab.txt");
print O $query->param("transactionuid") . " | " .  $query->param("transcribed_text") . "\n";
close(O);

print "ok";