use strict;
use warnings;

use Net::SMTP;
use Net::FTP;

my $server = "cube";

my $smtp = Net::SMTP->new(Host => $server, Debug => 1, Timeout => 60);
#my $smtp = Net::FTP->new($server, Debug => 1);
if(!defined($smtp)) {
  die "Failed to connect to $server\n";
}
print $smtp->domain,"\n";
$smtp->quit;