<%
my $info_output;
my $info_input;
my @infosys = &file_load("../se_data/_infosys/infosys.txt");
$c = 0;
my @schonda;
foreach (@infosys) {
my $zufall = rand(@infosys);
@value = split (/\x09/,$infosys[$zufall]);
if ($value[3] eq "V" && $schonda[$zufall]==0 ) {
$info_input .= qq(
$value[2]);
$c++;
$schonda[$zufall] = 1;
last if $c==5;
}
}
$info_output .= qq($info_input);
$info_output;
%>