my $db = shift(@ARGV);
my $file = shift (@ARGV);
my (%DOC);

open (SAL, ">$file");
dbmopen (%DOC, $db, 0666);
foreach $keys (%DOC)
{@a = split ('\0', $DOC{$keys});
	$q = join ('-',@a);
	print SAL $keys ."=".$q."\n";}
dbmclose (%DOC);
close (SAL);
exit 0;