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

use warnings;
use LWP::UserAgent;
use threads;
use threads::shared;

my $threads = 2;
my $file = 'test.txt';

open(F, "<$file") || die $!;
chomp(my @text : shared = <F>);
close F;

my @trl = ();
my $ua = new LWP::UserAgent;

$trl[$_] = threads->create(\&main) for 0..$threads-1;
$_->join for @trl;

sub main
{
	while(@text)
	{
		my $line = shift @text;
		my $code = $ua->get('http://rambler.ru/'.$line)->code;
		print "$line -- $code\n";
	}
}