71cdde0d8b2e3debeb6581e0761389451e1055f3
5 @ARGV >= 1 or die "usage: $0 CDB [INPUT ...]\n";
7 $c = CDB_File
->new($f, "$f.new") or die "CDB_File->new: $!\n";
10 m
'^([^:]*):(.*)$' or die "bad assignment `$_'\n";
13 $c->finish() or die "CDB_File->finish: $!\n";