use User::pwent;
my $root = getpw(0)->dir();
my $home = getpw($<)->dir();

for (keys %{$CPAN::Config})
{
    $CPAN::Config->{$_} =~ s:^\Q$root:$home:;
}

1;
__END__