view release on metacpan or  search on metacpan

eg/lokiSender  view on Meta::CPAN

if ( $opts->{group} || $opts->{user} ) {
    eval {
        no warnings;
        my ( $gid, $uid );
        if ( $opts->{group} ) {
            $gid = getgrnam( $opts->{group} );
            POSIX::setgid($gid);
        }
        if ( $opts->{user} ) {
            $uid = getpwnam( $opts->{user} );
            chown( $uid, ( $gid // [ stat( $opts->{deferDir} ) ]->[5] ),
                $opts->{deferDir} )
              and chmod( 0700, $opts->{deferDir} );
            POSIX::setuid( scalar( getpwnam( $opts->{user} ) ) )
              if $opts->{user};
            my (
                undef, undef, undef,    undef, undef,
                undef, undef, $homedir, undef
            ) = getpwnam( $opts->{user} );
            $ENV{HOME} = $homedir if $homedir;
        }