>[оверквотинг удален]
>>и почему не работает вот это?
>>
>>  $Tmpnam="/var/tmp/wget_epr_file";
>>  open(FN,">$Tmpnam");
>>  binmode (FN);
>>  read FN $Wget_epr; #если написать print - работает на вывод.
>>
>>  close(FN);
>
>а что ты хочешь считать из пустого файла?

он будет не пустой
туда до этого WGET сгрузит страничку:

$Epr_file_name = "/var/tmp/wget_epr_file";

$Wget_epr = "";
system("/usr/local/bin/wget --quiet --tries=1 --connect-timeout=3 --output-file=$Epr_file_name \"$Url\"");
            
open FN, "$Epr_file_name" || die "Файл не найден!";
foreach( <FN> )
{ $Wget_epr .= $_; }
close FN;
  
if ($Wget_epr ne "")
{...}
else
{...}

только проблема
WGET вызываемый из PERL сообщения об ошибках ("нет коннекта например") выводит всё в тот файл и не получается определить, жив сайт или нет. если WGET вызывать с опцией --quiet он вообще ничего в файл не выводит, ни ошибок, ни страницу сайта даже если он жив.
При вызовы из просто командной строки - всё работает замечательно как надо. ошибки - на экран, загрузка - в файл. если включаю --QUIET ошибки выключаются, загрузка тем не менее в файл.

Код:

>[оверквотинг удален]
>>>>с помощью, например, wget пытаемся скачать страницу
>>>>
>>>>>Теряюсь в непонятках. Но знаю, как работать с MySQL + Perl.
>>>>
>>>>Так от нас то что требуется?
>>>
>>>Как вызвать wget из Perl ?
>>
>>А зачем тебе Perl? По-моему, удобней просто shell-скрипт.
> поздняк метаццо. всё уже готово.

Ну так напиши здесь, или ты по методу "Я сам все решил, и фиг расскажу!"