Select Code to Download

#!C:\Interwoven\TeamSite/iw-perl/bin/iwperl
use File::Copy;
use TeamSite::Config;
...

#unlink($fileName);
exit;

sub copy_recursively {
                my ($from_dir,$to_dir) = @_;
                opendir(DIR, $from_dir) or die "Could not open dir '$f
+rom_dir': $!";
...
                                print FILEOUT "$file_content[$v]";
                                                            
                            }