print "Content-type: text/plain\n\n";
my $param = 1;
foreach my $fields (@$data) {
   my $name = $param++;
   my $value = join('|', @$fields);
   print "$value\n";
}