Re:Inetd and restart

[Jorge Goncalvez]

Hi, I have this code written in Perl to restart inetd but nothing happens.

sub restart_serv
{
        $PROG = "c:/cygwin/usr/sbin/inetd.exe";

        $SIG{HUP} = \&phenix;

        sub phenix {

                exec($PROG)             or die " can't restart : $!\n";

                   }


}

thanks.