$smtp = Net::SMTP->new($mail) or die "Couldn't connect to server";