The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

system(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   system( qq[rm -rf $Root] )                                  and die $?;
    system( qq[mkdir -p $Meta $Site $Tmpdir $Bindir $Builddir $Alternatives ] .
            qq[$Repodir] )                                      and die $?;
    system( qq[touch $Available $Altfile $Repoindex] )          and die $?;
}