send 100 mail attached txt(MIME.::Lite)

#!/usr/bin/perl

use MIME::Lite;
use Net::SMTP;
my $from_address = '[e-mail]';
my $to_address = '[e-mail]';
my $mail_host = 'nxserver.sh.uniforce.net';
my $subject = 'subject: 5i envelope sender rewrite test';
open(A,"a5i.txt") or die "cannot open a5i.txt$!\n";
$file=<A>."\n";
foreach(1..100){
$msg = MIME::Lite->new (
  From => $from_address,
  To => $to_address,
  Subject => $subject,
  Type =>'multipart/mixed'
) or die "Error creating multipart container: $!\n";
$msg->attach (
  Type => 'PLAIN/TEXT',
  Data => $file,
) or die "Error adding the text message part: $!\n";

### Send the Message

MIME::Lite->send('smtp', $mail_host, Timeout=>60);
$msg->send;
}