#!/usr/bin/perl

use strict;
use warnings;
use Email::Send;

my $sender = Email::Send->new( { mailer => 'SMTP' } );
$sender->mailer_args( [ Host => 'localhost' ] );

my @available = $sender->all_mailers;

print "@available\n";