Select Code to Download

sub SendMail {
    if (-e $FORM{'template'}) { }
...
    print MAIL "$File\n"; }
    close (MAIL);
}

sub Redirect {
    if ($FORM{'success'}) { 
        print "Location: $FORM{'success'}\n\n"; }
}