Не получается подменить пользователя (Прочитал доку, что есть байты доступа SUID и GUID.)

[Mosco]

Мне нужно запустить программу от другого пользователя, сделал такой
пример:

#!/usr/bin/perl -w

use POSIX;

print "Hello world!\n";
print $<.'--'.$>."\n";
print POSIX::getpwuid(POSIX::getuid())."\n";
print POSIX::getpwuid(POSIX::geteuid())."\n";

поставил SUID и GUID, запустил прогу другим пользователем - ожидаю
что где-нибудь появится идентификатор пользователя, владельца данного
скрипта, но появляются только идентификаторы пользователя, который
запустил скрипт.

Что-то я не так делаю или понимаю?

[Skladnoy]

Если мне не изменяет память, то на скрипты SUID и GUID не действуют.

[Olden Gremlin]

Мне нужно запустить программу от другого пользователя, сделал такой
пример:

#!/usr/bin/perl -w

use POSIX;

print "Hello world!\n";
print $<.'--'.$>."\n";
print POSIX::getpwuid(POSIX::getuid())."\n";
print POSIX::getpwuid(POSIX::geteuid())."\n";

поставил SUID и GUID, запустил прогу другим пользователем - ожидаю
что где-нибудь появится идентификатор пользователя, владельца данного
скрипта, но появляются только идентификаторы пользователя, который
запустил скрипт.

Что-то я не так делаю или понимаю?

если для перл скрипта надо пользователя подменить - решение влоб - выставлять атрибуты не скрипту, а, собственно перлу... но извратно ЭТО...