#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
$r=rand 8;
$i=int($r)+1;
if( $i==1){ exec '/usr/local/bin/perl 7thcgi_hito_1.cgi'}
if( $i==2){ exec '/usr/local/bin/perl 7thcgi_hito_2.cgi'}
if( $i==3){ exec '/usr/local/bin/perl 7thcgi_hito_3.cgi'}
if( $i==4){ exec '/usr/local/bin/perl 7thcgi_hito_4.cgi'}
if( $i==5){ exec '/usr/local/bin/perl 7thcgi_hito_5.cgi'}
if( $i==6){ exec '/usr/local/bin/perl 7thcgi_hito_6.cgi'}
if( $i==7){ exec '/usr/local/bin/perl 7thcgi_hito_7.cgi'}
if( $i==8){ exec '/usr/local/bin/perl 7thcgi_hito_8.cgi'}