Select Code to Download

#!/usr/bin/perl
use strict;
...
end_html;
fileoprn::filewrite("$script_name"."_tree\.txt",$tree_structure);
end_html;

#!usr/bin/perl
#*******************************************************************
...
     close(FOUT);
 }
1