Net::SMTP

[Somu]

Hi everyone...
Why isn't it happeing!!??

Just the code from Net::SMTP docs

__________________________________________________________

use strict;
use warnings;
use Net::SMTP;

#these 3 lines bring the output mx.google.com
# my $smtp = Net::SMTP->new('smtp.gmail.com') or die $!;
# print $smtp->domain,"\n";
# $smtp->quit;



#but for this...
    my $smtp = Net::SMTP->new('smtp.gmail.com') or die $!;

    $smtp->mail('som....@gmail.com') or die $!;    #it dies here. No errors.
    $smtp->to('som....@.gmail.com') or die $!;

    $smtp->data() or die $!;
    $smtp->datasend("A simple test message\n") or die $!;
    $smtp->dataend() or die $!;

    $smtp->quit or die $!;

___________________________________________________________

And how are we going to know any mailhost's address???
Its irritating when you fail on the first step.