6 use POSIX qw/pause EXIT_SUCCESS EXIT_FAILURE/;
10 use IPC::MorseSignals::Emitter;
11 use IPC::MorseSignals::Receiver;
15 die "fork() failed : $!";
18 my $rcv = new IPC::MorseSignals::Receiver \%SIG, done => sub {
19 print STDERR "I, the child, recieved this : $_[1]\n";
22 print STDERR "I'm $$ (the child), and I'm waiting for data...\n";
27 print STDERR "I'm $$ (the parent), and I'm gonna send a message to my child $pid.\n";
29 my $snd = new IPC::MorseSignals::Emitter speed => 1000;
30 $snd->post("This message was sent with IPC::MorseSignals");