#! /usr/local/bin/perl
dbmopen(r2a,"/usr/personals/real2alias",0600) || die "$0: can't dbmopen real2alias: $!\n";
while (($key,$value) = each %r2a) {
#	print $key," = ",$value, "\n";
	print "$value:$key\n";
}
dbmclose(r2a);
