Help for this page

Select Code to Download

Select or download this

use POSIX qw/setuid setsid/;

...
}

print "USER: ". getpwuid($<) . "\n";

Select or download this

toadi      20510     1 14 04:56 pts/0    00:00:01 /usr/bin/perl /some/
+path/daemon