sub mail {
        local $self = shift;
        local $dbh = $self->param('dbh');
        my $q = $self->query();
        local $session = $q->param('session');
        my %master_info = db_retrieve_master_info();
        my @loop = db_retrieve_records();
        my $head = Mail::Header->new;
        $head->add(From => 'somebody@localhost');
        $head->add(To => $master_info{$session}{email});
        $head->add(Subject => "Summary of DNS Request");
        my $body .= "\n";
        foreach (qw( account domain )) {
                $body .= "$_ $master_info{$session}{$_}\n";
        }
        $body .= "\n";
        for my $i (0..@loop) {
                foreach (qw( action type domain priority target )) {
                        $body .= $loop[$i]{$_};
                }
                $body .= "\n";
        }
#       $body .= Data::Dumper->Dump(@loop);
        $body .= "Other Instructions: \n" if $master_info{$session}{other};
        $body .= "$master_info{$session}{other}\n";
        my $mail;
        $mail = Mail::Internet->new(Header => $head,
                                        Body => [$body],
                                        Modify => 1,
        );
        my $success = $mail->send('sendmail');
}