my $path = "" ;
my $ua = LWP::UserAgent->new();
$ua->agent('Mozilla/5.0 FOX(2ch.se)');
$ua->timeout(5);
my $request = HTTP::Request->new('GET', $url);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();

print $response->as_string; #取得した内容を表示する　←←←←←←　この部分で取得した内容を表示してみたけどindex.htmlらしき文字列がずらずらと

# エラーチェック
if ($response->is_error)
{
print "error $db_content\n" ;
return 0;

>>709
取得じゃなくてその辺りの書き込みに失敗しているような気がする