#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use warnings; use strict; use CGI::Cookie; use CGI qw/:standard/; use DB_File;