diff --git a/mogdelete b/mogdelete
index 8bdd898..7fa478c 100755
--- a/mogdelete
+++ b/mogdelete
@@ -54,5 +54,5 @@ my $mogc = $util->client;
 
 $mogc->delete($c->{key});
 if ($mogc->errcode) {
-    print STDERR "Error deleting file: ", $mogc->errstr, "\n";
+    die "Error deleting file: ", $mogc->errstr, "\n";
 }
diff --git a/mogfetch b/mogfetch
index e3cb006..eea5cee 100755
--- a/mogfetch
+++ b/mogfetch
@@ -102,4 +102,5 @@ if (@resses) {
         print STDERR "Got errors while trying to fetch:\n";
         print STDERR $res->status_line, "\n";
     }
+    exit 1;
 }
diff --git a/moglistkeys b/moglistkeys
index 50a2300..40f1fdb 100755
--- a/moglistkeys
+++ b/moglistkeys
@@ -67,5 +67,5 @@ $mogc->foreach_key(prefix => $c->{key_prefix}, sub {
 });
 
 if ($mogc->errcode) {
-    print STDERR "Error listing files: ", $mogc->errstr, "\n";
+    die "Error listing files: ", $mogc->errstr, "\n";
 }