Help for this page
HELO hostname
#!/usr/bin/perl ... print $socket "Your data here\r\n"; print $socket ".", "\r\n"; print $socket "QUIT", "\r\n";
#!/usr/bin/perl ... die "Error in QUIT: $line" unless ($line = scalar <$socket>) =~ /^2/;