#! /usr/bin/perl

$logfile = $ARGV[0];
$query=$ARGV[1]; 

open(LOGFILE,">>$logfile") || 
    die "Could not open logfile for writing: $!\n" ;

print LOGFILE <<END_RESULTS;
[Default]
HitCount=3
Diagnostic=0
Separator=####
[Data]
Key1
Record data for record number 1
####
Key2
Record data for record number 2
####
Key3
Record data for record number 3
END_RESULTS

close(LOGFILE);
