# equivalent Mail:Sendmail code
    open S,'>','socket' or die;
    my $oldfh = select(S); $| = 1; select($oldfh);
    close S;

##</code><code>##

# select(STDOUT); # uncomment to fix

##</code><code>##

select $stdout;

##</code><code>##

unless ( socket S, AF_INET, SOCK_STREAM, (getprotobyname 'tcp')[2] ) {
            return fail("socket failed ($!)")