Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...

dircopy('/tmp/test1', '/tmp/test2');
print "\n";