#!/usr/bin/perl -T

use strict;
use warnings;
use CGI qw( -unique_headers );
use CGI::Carp qw( fatalsToBrowser );
use Mail::Mailer;

# Much stuff... ;)

sub send_message {
    my (    $recipient_addr, 
            $sender_name, 
            $sender_email, 
            $subject,
            $message )         = @_;
    my $mail = new Mail::Mailer;
    $mail->open( {
        To        => $recipient_addr,
        From      => $sender_email,
        Subject   => "[Mailer Response] " . $subject
    } );
    print $mail $message;
    close $mail;
}