# doesn't work $SIG{INT} = sub { $sig++; $control->removeMonitorPID($monitor->{PID}); };