#!/usr/bin/perl -w

use strict;

my $LIB = $ENV{HOME} . "/public_html/LIB";

use lib $ENV{HOME} . "/public_html/LIB";
use Querier qw($col_delim);

require "$LIB/sqlUtils.pl";

my $query = join(" ",@ARGV);

if (!$query)
{
	print "Usage: $0 [database select query]\n";
	exit 0;
}

my @rows = db_retrieve("mr",$query);

print join("\n",@rows);