$mux->loop(sub {
    my ($rdready, $wrready) = @_;
    &check_sigs();
    $mux->endloop if $prop->{_HUP};
  });

##</code><code>##

  $mux->loop(sub {
    my ($rdready, $wrready) = @_;
    &check_sigs();
    $self->inner_loop_hook;    # user customizable hook
    $mux->endloop if $prop->{_HUP};
  });

##</code><code>##

$self->inner_loop_hook;    # user customizable hook

##</code><code>##

sub inner_loop_hook {
  print "Dude! " , time , "\n";
}

##</code><code>##

use Time::HiRes qw( setitimer getitimer
                ITIMER_REAL ITIMER_VIRTUAL ITIMER_PROF );
setitimer(ITIMER_REAL, 3, 1);
$SIG{ALRM} = sub { return };