Help for this page

Select Code to Download


  1. or download this
    open STDOUT, ">&SOCK_WRITE" or die "STDOUT: $!\n";
warn "fileno(STDOUT)=",fileno(STDOUT),"\n";
  2. or download this
    fileno(STDOUT)=3
  3. or download this
    exec('perl','-e','$|=1; while(1) { sleep(5); print q:The time is now :
+,time,qq:\n:; };')
  or die "exec error: $!\n";