diff --git a/reports/locks b/reports/locks
index a6d8d27..6f91377 100755
--- a/reports/locks
+++ b/reports/locks
@@ -27,6 +27,16 @@ my $sth
             );
 $sth->execute();
 my $locks = $sth->fetchall_arrayref();
+
+
+binmode STDOUT, ":encoding(UTF-8)";
+say "<!DOCTYPE html";
+say "<html>";
+say "<head>";
+say "<meta charset='UTF-8'/>";
+say "</head>";
+say "<body>";
+
 if (@$locks) {
     say "<table>";
     say "<tr>";
@@ -48,6 +58,9 @@ if (@$locks) {
 } else {
     say "<p>No locks \N{WHITE SMILING FACE}</p>";
 }
+say "</body>";
+say "</html>";
+exit(0);
 
 sub xmlencode {
     my ($s) = @_;
