#!/usr/bin/perl
$list = join("/",testtree);
print (" STATUS :: ",$list);