diff --git a/lib/Crypt/PWSafe3.pm b/lib/Crypt/PWSafe3.pm
index 8edee12..36612dd 100644
--- a/lib/Crypt/PWSafe3.pm
+++ b/lib/Crypt/PWSafe3.pm
@@ -15,7 +15,7 @@ use Digest::HMAC;
 use Digest::SHA;
 use Crypt::Random qw( makerandom );
 use Data::UUID;
-use File::Copy qw(cp);
+use File::Copy qw(copy move);
 use File::Spec;
 use FileHandle;
 use Data::Dumper;
@@ -375,8 +375,7 @@ sub save {
   }
   else {
     # well, seems to be ok :)
-    cp($tmpfile, $file);
-    unlink $tmpfile;
+    move($tmpfile, $file);
   }
 }