#!/usr/bin/perl local $SUDO="/usr/bin/sudo"; local $CMD="/home/httpcmd/bin/opensshport"; local $HOST=$ENV{"REMOTE_ADDR"}; print "Content-type:text/html\n\n"; if ($HOST ne "") { local $pid = fork(); if ($pid == 0) { close STDOUT; exec $SUDO, $CMD, $HOST; } print <<_EOF_;