use strict;
use Net::SMTP;
my $smtpd = shift @ARGV || 'localhost';

my $smtpc = Net::SMTP->new($smtpd,
    Debug => 1,
);

warn "DSN not supported!" unless $smtpc->supports('DSN');