$smtp->mail(&xxx);
            $smtp->to(&xxx);

##</code><code>##

my $email=&xxx;
$smtp->mail($email);
$smtp->to(email);

##</code><code>##

$smtp->mail('YYY@hotmail.com,' 'xxx@hotmail.com');
$smtp->to('YYY@hotmail.com,' 'xxx@hotmail.com');

##</code><code>##

sub xxx
{
my $query = CGI->new;
my $mail = CGI->new;

my @recipient = ();

open(my $file,  "<",  "users.txt")  or die "Can't open input.txt: $!";

my $hotmail = "hotmail\.com";
my $gmail = "gmail\.com";
# print $query->header('text/html');	# create the HTTP header
# print $query->start_html('Login Access');	# start the HTML

while (<$file>)  
{
	chomp;

	my $emailid= (split/\s+/,$_) [2];
	
	if (/$hotmail/)
	{
	  push(@recipient,$emailid);
	}
	elsif (/$gmail/)
	{
	  push(@recipient,$emailid);
	}
}

	$email = join(', ', @recipient);
	return $email;
}