Select Code to Download

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

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