linux - perl スクリプトから権限を削除しますか?

Question

barroot として実行している perl スクリプトがあり、その中から、権限の低いユーザーとしてシステム コマンドを実行したいと考えていますfoo。だから私は次のように私のsystem呼び出しをラップしています：

sub dosys
{
        system(@_) == 0
                or die "system @_ failed: $?";
}

だから私は言いたい：

as user foo dosys("bar")

これを行うために使用できる perl または基礎となる bash シェル内のメカニズムはありますか? （可能であれば、追加の cpan ライブラリをインストールする必要がないものを希望します）