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