Help for this page

Select Code to Download


  1. or download this
    printf "TFD> count is '%s'\n", $count;
    printf "TFD> path[count] is '%s'\n", $::path[$count];
    printf "TFD> direntry[count] is '%s'\n", $::direntry[$count];
    printf "TFD> FileLabel is '%s'\n", $::FileLabel;
    printf "TFD> DirLabel is '%s'\n", $::DirLabel;
    
  2. or download this
    use Data::Dumper;
    
    printf "TFD> treeref => '%s'\n", Dumper(\$treeref);