tie %tempdb, 'SDBM_File', $databasefile, O_CREAT|O_RDWR, 0644;