sending mail using perl, with auth

sendmail.pl

#!/usr/bin/perl
use Net::SMTP;
use Authen::SASL;

if(@ARGV < 2){
  die "usage: SendMail.pl <MailTo> <MimeFile>";
}

my($MailTo, $MimeFile) = @ARGV;
my $smtp = Net::SMTP->new('111.222.3.123');
my $line;

$smtp->auth('user','passwd') or die "authertication failed: $!\n";
$smtp->mail("someone\@example.com");
$smtp->to($MailTo);

open (IN, $MimeFile) or die  "open $MimeFile fail";

$smtp->data();

$line = <IN>;
while($line)
{
	$smtp->datasend($line);
	$line = <IN>;
}
close IN or die "can not close $MimeFile fail";

$smtp->dataend();
$smtp->quit;