my $smtp1 = Net::SMTP->new('my.mailserver.ca');