usr bin perl use warnings use strict use LWP UserAgent my ua LWP UserA

#!/usr/bin/perl

use warnings;
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(agent => 'ХУЙ !! ПИЗДА !! НОВЫЙ ГОД !!', timeout => 15);
for (1 .. 3) {
    my $req = $ua->get("http://upyachka.ru/$_/")->content;
    my @upmans = $req =~ m,<SPAN class="user-logout" noinfo="true">(.+?)</SPAN>,ig;
    print Dumper(@upmans);
    sleep 5;
}