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 +++