Select Code to Download

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

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

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

sub xxx
{
my $query = CGI->new;
...
    $email = join(', ', @recipient);
    return $email;
}