#!/usr/bin/perl -w require HTTP::Request; use HTML::Template; use LWP; use CGI; use CGI::Session; use DB_File; use File::Spec;