#!/usr/bin/perl -wT use CGI; my $q = CGI->new(); my $fax = $q->param('fax'); my $email = $q->param('email'); print $q->header(); error('Please fill in all the required blanks') unless ($fax && $email); mail(); # print success method, redirect? sub error { print <

$_[0]

HTML exit 1; }