#!/usr/bin/perl

use warnings;
use strict;

use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;

use POSIX;
use DB_File;

my $db = "/home/spyders/public_html/cgi-bin/track/link.db";
my %db;
tie %db, "DB_File", "$db", O_CREAT | O_RDWR, 0644,
  or die "Cannot open file 'db': $!\n";



foreach (%db)
{
   print "$_ => $db{$_}<br>";
}