# The problem:
#
#   perl 5.12 has dropped support for SUID: 
#   running Perl scripts with root privileges is no more possible.
#
# The solution:
#
#   A wrapper which calls itself via sudo to obtain EUID and GUID 0 (root)
#   Wrapper and scripts are located in /opt/sperl/ which has to be in $PATH


root@fex:# sperl
usage:
        sperl ADD script
        sperl DEL script
        sperl ENABLE script
        sperl DISABLE script
        sperl LIST
                                                                                                                              
root@fex:# sperl list
spt*

root@fex:# sperl add /usr/local/bin/usbmount
spt*
usbmount*

root@fex:# sperl disable spt
spt
usbmount*

root@fex:# sperl enable spt
spt*
usbmount*

root@fex:/opt/sperl# ll
-rwxr-xr-x root     root     2,942 2012-04-17 16:32:26 sperl
lrwxrwxrwx root     root         - 2012-04-17 16:37:03 spt -> sperl
-rwxr-xr-x root     root       161 2012-04-17 16:26:31 spt.pl
lrwxrwxrwx root     root         - 2012-04-17 16:18:30 usbmount -> sperl
-rwxr-xr-x root     root     9,459 2012-04-04 11:27:59 usbmount.pl


Author: Ulli Horlacher