host is www.1and1.com
$ENV{USER} does not exists or is not defined.
...
Net::SMTP fatal error: Unable to connect to 'www.1and1.com'. A connection attemp
t failed because the connected party did not properly respond after a period of
time, or established connection failed because connected host has failed to resp
ond. at (eval 35) line 3.
        eval '
use Net::SMTP;
my $smtp = Net::SMTP->new(Host => $host, Debug => 2)
 or croak "Unable to connect to \'$host\'. $!";

$smtp->mail($ENV{USER});
$smtp->to($phone);
$smtp->data();
$smtp->datasend("From: $ENV{USER}\\n");
$smtp->datasend("Subject: This is your map link\\n");
$smtp->datasend("\\n");
$smtp->datasend($link);
$smtp->dataend();
$smtp->quit();

;' called at alpaca4.pl line 27
        main::email_link('3um671.html') called at alpaca4.pl line 12
 at alpaca4.pl line 42.
        main::email_link('3um671.html') called at alpaca4.pl line 12
## and then this one is the right smtp address
host is smtp.1and1.com
Net::SMTP fatal error: Unable to connect to 'smtp.1and1.com'. A connection attem
pt failed because the connected party did not properly respond after a period of
 time, or established connection failed because connected host has failed to res
pond. at (eval 35) line 3.
        eval '
use Net::SMTP;
my $smtp = Net::SMTP->new(Host => $host, Debug => 2)
 or croak "Unable to connect to \'$host\'. $!";

$smtp->mail("myself");
$smtp->to($phone);
$smtp->data();
$smtp->datasend("From: me\\n");
$smtp->datasend("Subject: This is your map link\\n");
$smtp->datasend("\\n");
$smtp->datasend($link);
$smtp->dataend();
$smtp->quit();

;' called at alpaca4.pl line 27
        main::email_link('dn75w1.html') called at alpaca4.pl line 12
 at alpaca4.pl line 42.
        main::email_link('dn75w1.html') called at alpaca4.pl line 12