#!/usr/bin/perl
print "Content-type:text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);
use DB_File;
my $x = tie(%data, DB_File, "data.db");
die unless $x;
$data{"1131764522.1131769129"} = "1131764522.1131769129\tJiskha Webmaster\t\tMt Tarawera\t\t70.228.93.58" || die "$!";
untie(%data);
print "success!";
1;