#!/usr/bin/perl -w -- # -*- Perl -*-

# Copyright 2005 Norman Walsh. This work is licensed under a
# Creative Commons License: http://creativecommons.org/licenses/by-nc/2.0/

use NSDL::Request;

my $userid = shift @ARGV
    || die "Usage: $0 userid\n";

my $req = new NSDL::Request();
$req->load('witw.nsd');

my $res = $req->user($userid);
print "$userid is $res\n";