my %compHash =
   ( "e:/pervasive/staging/summit/C01" => "e:/pervasive/test/APEX012015/C01",
   );

       foreach my $key(keys %compHash)
       {   my $value = $compHash{$key};
           my $ret = move($key , $value);
           if ( $ret )    ## If $ret == 1, then success
           {   print "Successfuly moved |$key| to |$value| .\n"; }
           else
           {   print "|$key| not moved to |$value|: $!\n"; }
    
       }