9 lines
206 B
Perl
9 lines
206 B
Perl
|
#!/usr/bin/perl -l
|
||
|
|
|
||
|
|
use strict; # https://rosettacode.org/wiki/Concurrent_computing
|
||
|
|
use warnings;
|
||
|
|
use Time::HiRes qw( sleep );
|
||
|
|
|
||
|
|
fork or sleep(rand), exit print for qw(Enjoy Rosetta Code);
|
||
|
|
1 while wait > 0;
|