use Mail::Cclient;
print "1..3\n";
print "ok 1\n";
my $smtp = Mail::Cclient::SMTP->new(
hostlist => "rosa.aesbuc.pt",
service => "smtp",
options => "dsn",
);
print "ok 2\n";
$smtp->close();
print "ok 3\n";
undef($smtp);
use Mail::Cclient;
print "1..3\n";
print "ok 1\n";
my $smtp = Mail::Cclient::SMTP->new(
hostlist => "rosa.aesbuc.pt",
service => "smtp",
options => "dsn",
);
print "ok 2\n";
$smtp->close();
print "ok 3\n";
undef($smtp);