perl -e "use SDBM_File;use Fcntl;tie %h, 'SDBM_File', 'H:\dbm\mydbmfile', O_RDWR, 0600;for (sort keys %h){print \"$_=$h{$_}\n\";}"