Select Code to Download

#!/usr/bin/perl
# test_bdb_1.pl
...
    print $message, "\n";
}

$ perl test_bdb_1.pl -start_listener
$ perl test_bdb_1.pl -start_server
...
13857
hello -> 1179504307