Perl: Sendmail

#! /usr/bin/perl -w
###################################################################                 
# Filename:    sendmail.pl
# Description: Simple Send Mail Script
# Usage:       perl sendmail.pl [recipients] [subject] [message]    
###################################################################  

use strict;
use Mail::Sendmail;

# Print out usage
if ($#ARGV != 2) {
   print "Usage: sendmail [addresses] [subject] [message]\n";
   exit;
}

my $recipients = $ARGV[0];
my $subject = $ARGV[1];
my $message = $ARGV[2];

# Send Mail
my %mail = ( 
  smtp	=> "relay.cig.mot.com",
  to	=> $recipients,
  cc	=> "",
  bcc	=> "",
  from 	=> "sender\@company.com",
  subject => $subject,
  message => $message
);

sendmail(%mail);

exit;