ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#! usr/bin/perl

use strict;
use LWP;

my $url='http://by.ru/login.cgi';
my $browser=LWP::UserAgent->new;
my $response=$browser->post($url,
[ 'login'=>'login',
  'password'=>password',
  'p2'=>'',
]
);

$response=$response->as_string;
my $tt=$response=~m/Location:(.*)\.cgi/;
my $checktext='http://by.ru/panel';
if ($tt!=$checktext){
print "Valide Account";
}else{
print "No valide Account";
}