($<,$>)= ($run_as, $run_as);

##</code><code>##

use POSIX qw(setuid);

setuid( $run_as );