# perl -e '$< = 81'
setruid() not implemented at -e line 1.

##</code><code>##

$pid = fork;
die unless defined $pid;
unless ($pid) {
    $< = $> = $bobs_uid;
    exec "foo";
}

##</code><code>##

system("su bob -c foo &");  #syntax?