view release on metacpan or  search on metacpan

bin/breakout  view on Meta::CPAN

    die "This must be run as root\n";
}

if (@ARGV) {
    @cmd = @ARGV;
}

my $jaildir = tempdir(DIR => "/");
(my $jaildir_rel_root = $jaildir) =~ s/.//;

chmod 0755, $jaildir or die "chmod failed: $!";
chdir "/" or die "chdir to / failed: $!";
chroot $jaildir or die "chroot to jail failed: $!";
rmdir $jaildir_rel_root or warn "failed to clean $jaildir: $!";

my $ino = 0;
while (1) {
    my @st = stat ".";
    if (!@st) {
        die "stat failed: $!";
    }