my $browser = LWP::UserAgent->new;
		
my $loginUrl = 'http://forum.webpage.com/index.php';
		
#my login credentials
		
my $loginResponse = $browser->post ($loginUrl, [ 'action' => 'login',
												 'username' => 'my username',
												 'password' => 'my password' ]
);
die "$loginUrl error: ", $loginResponse->status_line
	unless $loginResponse->is_success;
die "Weird content type at $loginUrl -- ", $loginResponse->content_type
   	unless $loginResponse->content_type eq 'text/html';
   	
print "First resp: ".$loginResponse->content."\n";
		
# ban user
		
my $banUrl = 'http://forum.webpage/mod/ban.php';
		
my $banResponse = $browser->post ($banUrl, 'banUser' => "username here"
);
die "$banUrl error: ", $banResponse->status_line
	unless $banResponse->is_success;
die "Weird content type at $banUrl -- ", $banResponse->content_type
   	unless $banResponse->content_type eq 'text/html';
		   	
print "Second resp: ".$banResponse->content."\n";