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