as an example if I had a script running as a privileged user and wanted to
drop owner script is running as to write to some dir I could do something
like this:

my ($login,$pass,$uid,$gid) = getpwnam('username');
$) = $gid;
$> = $uid;
[download]

checkout perldoc perlvar (info on Perl predefined variables)