Не получается подменить пользователя

Прочитал доку, что есть байты доступа SUID и GUID.

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

#!/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, запустил прогу другим пользователем - ожидаю 
что где-нибудь появится идентификатор пользователя, владельца данного 
скрипта, но появляются только идентификаторы пользователя, который 
запустил скрипт.

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