my $cp_rv = system('cp', '-rp', $src, $dst);

if ($cp_rv) {
   if ($cp_rv == -1) {
      die("Unable to launch 'cp': $!\n");
   } else {
      system('rm', '-rf', $dst);
      die("Unable to copy \"$src\" directory. \"cp\" returned $?\n");
   }
}

system('rm', '-rf', $src);