Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl8
    
    use 5.006001;
    ...
        my $lw = syswrite($sock, $data);
        die $! unless defined $lw and $lw == length($data);
    }
    
  2. or download this
    nanosleep({5, 0}, {5, 0})               = 0
    time([1122281453])                      = 1122281453
    time([1122281453])                      = 1122281453
    ...
    write(3, "Mon Jul 25 10:50:58 2005\n", 25) = -1 EPIPE (Broken pipe)
    --- SIGPIPE (Broken pipe) ---
    +++ killed by SIGPIPE +++