displeaser,

A typeo:

my $smtp = Net::SMTP->new("10.10.100.200) || die "Couldnt reach the email server\n";

Should be:

my $smtp = Net::SMTP->new("10.10.100.200") || die "Couldnt reach the email server\n";

Hope this helps.

Martin