#! /usr/bin/perl

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

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

print LOGFILE <<END_RESULTS;
This is the full record for the hit with key $key.
It's longer than the brief records by just a little bit.
END_RESULTS

close(LOGFILE);
