http://www.perlmonks.org?node_id=635517


in reply to Copy folders

Hi avik1612, copy the folder using File::Copy::Recursive

use strict;
use warnings;
use File::Copy::Recursive qw(dircopy);
dircopy('E:\test\split\Output','C:\New') or die("$!\n");

[download]

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

In Section Seekers of Perl Wisdom