#!/usr/local/bin/perl use CGI qw(:standard); use Env; $| = 1; print header; print "

BSVM

"; if(!($email = param('address'))) { print "

You left the email address line blank."; print "
Please go back and enter your email address."; print "

Back"; } else { print "

Download the compressed file"; print " bsvm.tar.gz."; print "\n"; $date = `date`; open(LOG,">>addresses"); print LOG $email . " " . $date; close(LOG); } print "\n";