11  #       setup
    12  require 5.003;
    13
    14  use CGI;
    15  use strict;
    16
    17  package main;
    18
    19  #unbuffer my output
    20  $| = 1;
    21
    22  $main::cgi = new CGI;
    23  {
    24
    25          SendTheDRAMail();
    26          SendTheDRASuccessPage();
    27  }