diff --git a/Dockerfile b/Dockerfile
new file mode 100644
index 000000000..3342ecc5b
--- /dev/null
+++ b/Dockerfile
@@ -0,0 +1,10 @@
+FROM tianon/mojo
+
+RUN cpanm Term::ReadKey
+
+RUN apt-get update && apt-get install -y vim
+
+COPY . /usr/src/docker-library-docs
+WORKDIR /usr/src/docker-library-docs
+
+CMD ["./push.pl"]
diff --git a/push.pl b/push.pl
index d42c6226b..4dbb3d282 100755
--- a/push.pl
+++ b/push.pl
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 use strict;
 use warnings;
+use 5.010;
 use open ':encoding(utf8)';
 
 use File::Temp;
@@ -163,7 +164,9 @@ while (my $repo = shift) { # '/_/hylang', '/u/tianon/perl', etc
 	$repoTx = $ua->post($repoUrl => { Referer => $repoUrl } => form => $settingsBits);
 	die 'post to ' . $repoUrl . ' failed' unless $repoTx->success;
 	
-	if (my $alert = $repoTx->res->dom('.alert-error')) {
-		die 'update to ' . $repoUrl . ' failed:' . "\n" . $alert->all_text;
+	my $alert = $repoTx->res->dom('.alert-error');
+	if ($alert->size) {
+		my $text = trim $alert->pluck('all_text');
+		die 'update to ' . $repoUrl . ' failed:' . "\n" . $text if $text;
 	}
 }