[MacPerl] SMTP and out of memory

[Paul D. Price]

Friends,

    I am trying to send email in Perl using the Net::SMTP module, with the
script below, taken from the MacPerl book.  I am getting sluugish
performance (PB G3 250 attached to cablemodem thru an xrouter) and out of
memory messages every time this script runs, and I have set my memory
partition to 70MB!  Any suggestions?

Thanks, 
Paul

#!perl
use strict;
use Net::SMTP;
my($smtp, $email, @emails, $subject, $message);

$smtp    = Net::SMTP->new('mail'); #my mailhost
$email   = '[EMAIL PROTECTED]'; # my address
@emails  = '[EMAIL PROTECTED]';
$subject = "Subject: My test message\n\n";
$message = <<EOM;
MacPerl sent this message.  Nifty, eh?
EOM

$smtp->mail($email)       or warn('failure');
$smtp->to(@emails)        or warn('failure');
$smtp->data()             or warn('failure');
$smtp->datasend($subject) or warn('failure');
$smtp->datasend($message) or warn('failure');
$smtp->dataend()          or warn('failure');
$smtp->quit()             or warn('failure');


-------------
Paul D. Price
Science Dept. Chair
Trinity Valley School
Ft. Worth, Texas 76132
[EMAIL PROTECTED]