#!/usr/bin/perl
use warnings;
use strict;

print("Please enter the email here: ");
my $email = <>;
chomp $email;
print("Please enter the number of emails: ");
my $emailsnr = <>;
chomp $emailsnr;
open FH, "/home/mikel/hello" or die "Couldn't open FH: $!\n";
my $test = 0;
while (<FH>) {
  if ($test >= $emailsnr) { last; }
  open WRITE, "> /home/mikel/test" or die "Couldn't open WRITE: $!\n";
  print WRITE $_;
  system("mutt -s 'Spam from red_eyes >:D' $email < '/home/mikel/test'");
  system("rm /home/mikel/test");
  $test++;
  sleep 2;
}


close FH;
close WRITE;