use WWW::Mechanize;

#Define a new "object" containing your "agent".
# (the autocheck bit tells it to check for errors)
 
my $mech = WWW::Mechanize->new( autocheck => 1 );

cookie_jar => {};

$mech->get( "http://wwwlib.umi.com/dissertations/search" );
$mech->set_visible("Baumgartner, Frank", [option=>"AD"]);
$mech->click("Search");


@advisees = ($mech->content =~ m/by <b>(.+)<\/b>/g);
print join("\n", @advisees);