#------------------------------------------------------------------------------
sub load{
  my $id = shift;
  my $tmp;


  for(1..7235617){
    for(1..100000){    
       $tmp = $_;
    }
    int( rand (10));
  }
  print "$id>LOAD EXIT\n";
}