#!/usr/bin/perl -wT -I /srv/www1-ssl/cgi-lib

use strict;
use sendmail qw(send_mail);

$sendmail::debug = 1;

my $sender = '<insert sender address here>';
my $destination = '<insert recipient address here>';
my $headline = 'Test';
my $msg = 'This is a test message.';

my $result = send_mail($sender, $destination, '', 0, $headline, $msg);

if($result == 1)
  {
  print "Message sent\n";
  }
elsif($result == -1)
  {
  print "Message transmission temporarily blocked\n";
  }
else
  { 
  print "Transmission failure\n";
  }

__END__