use PPT qw(cp ls);
cp('-pvR', $srcdir, $destdir);
@files = ls($dir);