use POSIX qw(setuid);

setuid( $run_as );