use MLDBM qw(DB_File Storable);     
 tie %o, 'MLDBM', 'testmldbm', O_CREAT|O_RDWR, 0640 or die $!;

 (tied %o)->DumpMeth('portable');  
 $o{'ENV'} = \%ENV;