$tar->setcwd($vsvroot);
foreach my $vsvxdb (<cntl/*>) {
	$tar->add_files($vsvxdb);
}
$tar->write("$vsvroot/tmp/cntlbkup.tar");