#!/perl/bin/perl

#use strict;
use IO::SOCKET::INET;
use DBI;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

print "Starting e-mail test...\n";    

        $mailto[0]="me\@yahoo.com";
        $mailto[1]="me\@google.com";

#IP 111.111.111.11 for showing only

        foreach my $element (@mailto) {
        my $sock = IO::Socket::INET->new (PeerAddr => '111.111.111.11'
+,
                          Type => 'SOCK_STREAM ',
                          PeerPort => 'smtp(25)',
                          Proto => 'tcp')|| die "That sucks, I can't o
+pen a port on The mail server. I'm going to take all my toys and go h
+ome now..";
        my $input = <$sock>;
        print $sock "HELO localhost\r\n";
        $input = <$sock>;
        print $sock "mail from:me\@yahoo.com\r\n";
        $input = <$sock>;
        print $sock "rcpt to:$element\r\n";
        print "rcpt to:$element\r\n";
        $input = <$sock>;
        print $sock "DATA\r\n";
        print $sock "Subject: Assignment Test\r\n";
        print $sock "From: Appraiser Test\r\n";
        print $sock "To: $element\r\n";
        print $sock "\r\n";
        print $sock "You have received a Response...";
        print $sock ".  Please click on the following link for details
+... \r\n";
        print $sock "\r\n\r\n\r\n";
        print $sock ".\r\n";
        $input = <$sock>;
        print $sock "QUIT";
        close ($sock);

        
        }
        
print "End test";
[download]