#!/usr/bin/perl -w

use strict;
use Net::SMTP;
use Carp qw(confess cluck);

$SIG{__WARN__} = sub { cluck(@_) };
$SIG{__DIE__}  = sub { confess(@_) };


my $smtp = Net::SMTP->new("localhost", Hello=>"localhost", Timeout=>20, Debug=>1) or die "$!";