Код:
my $url : shared;
$url = 'http://vip-file.com/download/ae25b2336179/asdwqerfawdq3d.htm.html';
....
my $cp : shared;
$cp = 0;
Выглядит не эстетично =\
Код:
my $url : shared = 'http://vip-file.com/download/ae25b2336179/asdwqerfawdq3d.htm.html';
....
my $cp : shared = 0;
Код:
sub get_content()
{
$ua = LWP::UserAgent->new();
$request = HTTP::Request->new(GET => $_[0]);
.......
}
# Подпрограммы
.....
sub имя (прототипы) блок; - То же, но с параметрами.
Круто а где же эти прототипы ? 
Код:
sub get_content( $ )
{
$ua = new LWP::UserAgent;
$request = HTTP::Request->new(GET => $_[0]);
.......
}
Код:
&error("Cant open good.txt\r\n$_[0]");
Perl 4 Tutorial ?
if(open(LogFile, ">>good.txt")) - Открываем файл good.txt для записи сбрученных паролей, если открыть не вышло (ужос), то выводим мессагу и выходим, LogFile - дескриптор файла.
if (!print LogFile $_[0], "\n") - Записываем в файл сбрученный пароль, если не вышло - выходим сами))
close(LogFile); - Закрываем дескриптор файла.
>> - режим дописывание к существующему файлу
существуют логические операторы которые в этом контексте уместны ( ||,or )
+ есть оператор unless
Функция выдирания uid, name и fid из рипнутого кода, который лежит в $text.
Код:
sub content2hv()
{
$start = index($text, 'name="uid" value="');
if ($start == -1)
{
....
}
регулярные выражения мощь этого языка , жаль что автор об этом не знает .
целиком согласен с Chuck .
Статья является кашей из манов , автор имеет скудное представление о языке .