#!/usr/local/bin/perl
use CGI;
print "Content-type: text/html\n\n";
print <<"EOF";
Sub Version!
version
| serial no | name | anagement |
| 1 |
$str |
g |
EOF
open(file,"csk.access");
@name=grep { $_ =~ m/^\[/} ;
s/\W//g for @name;
$str=join '',@name;
print $str,"\n";
close file;