#!/usr/local/bin/perl
print "Tentando explorar dentro do furo /dev/null..\n";
print "Furo explorado, retorno 0!\n# ";
$repeat = 1;
while($repeat eq 1) {
$comando = <>
chop($comando);
if ($comando =~ /whoami/) {print "root\n"};
if ($comando =~ /id/) {print "uid=0(root) gid=0(root) groups=0(root)\n"};
if ($comando !~ /whoami/ && $comando !~ /id/) { system($comando) };
print "# ";
}