my submission for a 2005 Perl web application university assignment