#!/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;
my $passwd = shift @ARGV;
my $lat = shift @ARGV;
my $long = shift @ARGV;

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

$req->auth($userid, $passwd);
my $res = $req->ami($lat, $long);