Help for this page

Select Code to Download


  1. or download this
       # equivalent Mail:Sendmail code
    open S,'>','socket' or die;
    my $oldfh = select(S); $| = 1; select($oldfh);
    close S;
  2. or download this
    # select(STDOUT); # uncomment to fix
  3. or download this
    select $stdout;
  4. or download this
    unless ( socket S, AF_INET, SOCK_STREAM, (getprotobyname 'tcp')[2] ) {
            return fail("socket failed ($!)")