#!/usr/local/bin/perl -w

use lib "/home/bear-008/users/downeyt/public/scripts";
use CGIBook::Error;
use CGILib;
use DB_File;
use Fcntl qw( :DEFAULT :flock );
use MLDBM qw( DB_File Storable );

print "Content-type: text/plain\n\n";

%query = get_query();

foreach (keys %query) {
    print "$_ = $query{$_}\n";
}