#!/usr/bin/perl

dbmopen(%cdata,"/etc/httpddata/comudata.dat",0600);
foreach $key (sort keys %cdata)
{
print "$key => $cdata{$key}\n";
}
dbmclose %cdata;