- my $ppid = getppid;
- my $rcv = new IPC::MorseSignals::Receiver \%SIG, done => sub {
- print $wtr Dumper($_[1]), "\n";
- kill SIGUSR1 => $ppid if $ppid;
- };
+ my $rcv = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
+ my $msg = Dumper($_[1]);
+ $msg =~ s/\n\r/ /g;
+ print $wtr "$msg\n";
+ });