Экспорт новостей типа Lenta.ru.

Я не могу вставить на свой сайт новости с помощью Perl, PHP.

У меня дома(на локальной машине) стоит программа HTTP  с помощью которой я запускаю скрипты Perl, PHP.
Дело в том, что с помощью программы HTTP скрипт выполняется, а на сервере нет.

Вот код на PHP:
<?

$fn="http://lenta.ru/r/illustrated.html";

$news=file($fn);
for ($i=0;$i<count($news);$i++){
 $str=$news[$i];
 $str=convert_cyr_string($str, "k", "w");
 print "$str";
}

?>

Код на Perl:

#!/usr/bin/perl -w

use strict;
use Fcntl qw(:flock);
use LWP::Simple qw(get);
use CGI qw(:all);

##################### SETTING #######################

##my $url="http://127.0.0.1/news/smi.htm";
my $url="http://lenta.ru/r/smi.html";
my $cache="tmp_slashcache";
my $lockfile="tmp_slashlock";

###################### FUNC #########################

sub get_lock{
 open(SEM, ">lockfile") || die "Ошибка при создании семафора: $!";
 flock(SEM, LOCK_EX) || die "Ошибка при выполнении блокировки: $!";
}
sub release_lock{
 close(SEM);
}

################## GET HTML CODE ####################
print header;

get_lock();
if ((not -e $cache ) or ((-M $cache)>.04)){
 my $doc=get($url);
 if (defined $doc){
   open(CF,">$cache") || die "Ошибка записи в кэш $!";
   print CF $doc;
   close(CF);
  }
}
release_lock();

print "zzz";

################## PRINT NEWS CAPT ##################

open(CF,$cache) || die "Ошибка при открытии кэш-файла: $!";

my @news=<CF>;
$_=$news[0];
my @last_news=split /\t/;
print $last_news[0]."<BR>".$last_news[2];

close (CF);


Помогите, пожалуйста.

P.S. chmod 755 для всех скриптов и каталогов перед запуском был установлен
--------------------------------------------------------------------------------

С уважением, Сергей Макарьин, [email protected]