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