while (1) {
#cant kill zombie process, must ignora status of children to die
        $SIG{CHLD} = 'IGNORE';
        unless ($apid){ die " Fork failed: $!" unless defined($astman_pid = fork()); $apid = $$; }
        if ($astman_pid) { &ASTMAN(); }
        unless($xpid) { die "Fork failed: $!" unless defined($xmpp_pid = fork()); $xpid = $$; }
        if ($xmpp_pid) { &XMPPMAN(); }
        #print "$apid / $xpid\n";
        sleep(60);
}