Select Code to Download

#! perl -slw
# Parallel example for Perl not built with threads support.
...
        $n1 / ( time() - $start );
}

Y:\>perl demo_thr.pl
server:29889 client:29889 cycles: 2119.429/secTerminating on signal SI
+GINT(2)
...
Y:\>perl demo_mce.pl
server:35619 client:35620 cycles: 1771.711/secTerminating on signal SI
+GINT(2)

$ perl demo_thr.pl
server:31879 client:31879 cycles: 2128.663/sec
...
$ perl demo_mce.pl
server:31690 client:31691 cycles: 1856.834/sec