#!/usr/local/bin/perl
use strict; chdir "/"; opendir JAILROOT, "." or die "ERROR: Couldn't get file handle to root of jailn"; mkdir "mysubdir"; chdir "mysubdir"; chroot ".";