#!/usr/bin/perl
print "Content-type: text/html\n\n";
open (HANDLE,"/usr/fweb/catch/yy.txt");
@datasinfile = ;
close(HANDLE);
foreach $say (@datasinfile)
{
@sur = split(/\n/,$say);
push(@sur1,@sur);
}
foreach(@sur1)
{
my($val1,$val2)= split(/:/,$_);
push(@val,$val1);
}
print <
ht1
;
yy.txt file format
---------------------
one:pass
two:fail
three:success
four:average