#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
print header;
print start_html("Thank You");
my $test_input = 2;


my $cmd=`perl -n /tmp/test.pl $test_input > /pptai/nightly_db/api.out`;
                my $resdir = "/pptai/nightly_db/api.out";
                open RES, $resdir or die "Couldn't open file $resdir: $!\n";

print end_html;