lopnor

#!perl
use 5.14.2;
use WWW::Mechanize;
use Getopt::Long;
use Term::Prompt;
use URI;

my $username;
my $baseurl;