Select Code to Download

#
# constructor
...
    undef $sync_dbm_obj;
    untie(%{$self});
};

my $session = MLDBMSession->new(FILE => "c:\\perl_user\sessions.db", S
+ESSION_ID => $session_id, TIMEOUT => 100);
$session->add_key( value1 => 20 );

$VAR1 = bless( {
                 '_timestamp' => 1034001952,
...
          'timestamp' => 1034001952
        };
Created/Last Accessed: Mon Oct  7 10:45:52 2002