#!/usr/bin/perl
$|++;
use strict;
use warnings;
use Mail::CheckUser qw(check_email);
# .... предположим у вас майлы в текстовом файле по 1 в строке
my $emails_file = '/path/to/file.txt';
my @valid_mails = ();
open(TXT,"<$emails_file") or die $!;
while(<TXT>) {
next unless $_;
chomp;
push @valid_mails, $_ if check_email($_);
}
close(TXT);
# ... сохраним майлы
my $exit_file = '/path/to/result.txt';
open(ETXT,">$exit_file") or die $!;
print ETXT $_."\n" for @valid_mails;
close(ETXT);