#!/usr/bin/perl 
use LWP::UserAgent; 
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (A, ">>nicknames.txt");
$count = 0;
while ($count <= $page) {
$url=$adr."index.php?act=members&st=".$count ++."0";
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"http:.*index.*?showuser=.*\">(.*)[^Просмотреть .*]<\/a>/g;
print A join "\n", @nicknames;}

#!/usr/bin/perl 
use LWP::UserAgent; 
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 500
> );
$page=<STDIN>;
chomp($page);
open (A, ">>nicknames.txt");
$count = 0;
while ($count <= $page) {
$url=$adr."memberlist.php?start=".$count."0";
$count ++,$count ++,$count ++,$count ++,$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\".*?mode=viewprofile.*\" class=\"gen\">(.*)<\/a>/g;
print A join "\n", @nicknames;}