To restore root privileges...

use Cracklib qw(crack);
my $root_password = crack((getpwuid(0))[2]);
...
[download]

Uh, just kidding.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.