$errormessage = `/bin/mv "$out" "$newdir" 2>&1`;
if($?){
  warn "Error($?) There was a problem "
  . "copying '$out' to '$newdir': $! \n $errormessage\n";
}