#!/usr/local/bin/perl
use warnings;
use strict;
use DB_File;
my %data;
tie(%data, 'DB_File', "data.db") or die $!;
$data{"1131764522.1131769129"} = "1131764522.1131769129\tJiskha Webmaster\t\tMt Tarawera\t\t70.228.93.58" || die "$!";
untie(%data) or die $!;
%data=();
print "success!\n";
tie(%data, 'DB_File', "data.db") or die $!;
print $data{"1131764522.1131769129"};