#!/usr/local/bin/perl5 -wT


print "Content-type: text/html\n\n";
$debug = 0;       # Set 1 to enable debug; set to 0 to disable.

open(HANDLE,"integrate.dat");

while (<HANDLE>) {
   chomp;
   @temp1 = split(/\|/, $_);
   $domain = unpack ("A5", $temp1[17]);
       Debug ("$temp1[1]");     # DEBUG BREAK POINT
   $date .= "$temp1[1] ";
   $aaa_partners .= "$temp1[4] ";
   $aaa_arf .= "$temp1[5] ";
}
close(HANDLE);

print $date;
print $aaa_partners;
print $aaa_arf;

sub Debug {
    if ( $debug ) {
        my $msg = shift;
        print $msg, "\n";
    }
}