{
&directories;
}

sub directories
{
$database="company_file.dat";
 open(FILE, $database) || die "can't open";
 @list = <FILE>;
 close(FILE);
 $numlist = @list;
print "Content-type: text/html\n\n";
print <<"EOF";
Company Listings:
EOF
 for ($a = 0; $a < $numlist; $a ++)
         {
         ($company, $url, $directory) = split(/\|/, $list[$a]);
       	print "$company, $url, $directory<BR>\n";
         }
 close(FILE);
}
1;