이 포스트에서는 PERL 의 MAIL Library를 이용하지 않고 TCP Socket 만 이용하여 메일을 보내는 기능을 구현하고자 하는경우에 해당 됩니다... (메일로 보낼 MIME Message 이미 작성 되어 있어야 합니다) #!/usr/bin/perl -w use IO::Socket; # TCP Socket Connect , 대충 127.0.0.1 서버에 25번포트에 접속 시도 한다. $socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1", PeerPort => 25, Proto => 'tcp', Type => SOCK_STREAM) or die "Cannot open socket!\n"; $SIG{PIPE} = 'handler'; # Trap term..