#!/usr/local/bin/perl

use DBI;
require "member.pl";

my $dbh;
my $sth;
my $query;

my $dsn = "DBI:mysql:promem:publicdb.cs.princeton.edu";
$dbh = DBI->connect($dsn, "promem", "cos333", {RaiseError=>1});

my @name = getMemberName("jsh", $dbh);

print "$name[0] $name[1] $name[2]\n";