#!/usr/bin/perl
use LWP::Simple;
use File::Temp();
use CGI;
$index_init_topurl ="http://"."$ENV{SERVER_NAME}";		#最後の/は含めない
	$get_cgi = get "$index_init_topurl"."/data/index.dat" or die ;
$fh = File::Temp->new or die ;
$fname = $fh->filename;
print $fh $get_cgi ;
close($fh);
require $fname or die ;