$s = "C:/temp/$here";
$d = "C:/$there/";
`move $s $d`;
-e "$d/$here" && !-e $s ? print "Move successfully\n" : print "Move error $d/$here \n".$!;