Untitled

#!/usr/bin/perl -w

use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Cookies;

my $ua = LWP::UserAgent->new(timeout => 35,
                                 cookie_jar => new HTTP::Cookies,
                                 agent => agent());

my $resp = $ua->post("http://forum.aztec.ru/ucp.php",
["username" =>  'prodampersov',
"password" => '123456',
"sid" => "5ab8e77c0a9e97afbe39903caaf3bc93",
"redirect" => "index.php",
"login" => "%D0%92%D1%85%D0%BE%D0%B4",
"redirect" => ".%2Fucp.php%3Fmode%3Dlogin"])->as_string;

my $member = $ua->post("http://forum.aztec.ru/memberlist.php",)->as_string;

if ($resp =~ "logout")

        {
        print "GOOD [+] \n";
        }
        else
        {
        print "BAD [-] \n";
        }

sub agent
{
    my @agents = qw(Opera/9.15 Opera/9.12 Opera/8.60b IE/4.0 IE/5.0 IE/6.0 IE/7.0 Mozilla/4.0 Mozilla/5.0 Mozilla/2.0 Mozilla/3.0);
    return $agents[rand scalar @agents];
}