#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

sub next {
  open(A, ">>a.txt");
  # Принято использовать вид open my $A, '>>', 'a.txt' or die "open() error: $!\n";
  
  open(URLS, "urls.txt");
  # open my $URLS, '<', 'urls.txt' or die "Shit, an error: $!\n!";
  
  @urlo = <URLS>;
  $client = LWP::UserAgent->new( ) or die;
  $client->agent('Opera/9.0 (Windows NT 5.1; U; en; (R1 1.5))');
  $client->cookie_jar( $cookie_jarr ); 
  $answer = $client->get($urlo);
  # А не будет ли тут Undefined переменной? $urlo не есть @urlo, также не есть его элемент
  foreach $urlo (@urlo) {
    @qwerty = $answer->content =~ /(.*)/g;
  }
  # тут вообще я упал и не могу встать, массив @qwerty при каждом проходе цикла переписывается. Зачем? Что вообще хотелось получить этой регуляркой?
  
  print A join "\n", @qwerty;
  
  # А файлы принято закрывать. close $URLS; close $A;
}