diff --git a/brmd/brmd.pl b/brmd/brmd.pl
index ec940ce..850a7eb 100755
--- a/brmd/brmd.pl
+++ b/brmd/brmd.pl
@@ -140,7 +140,7 @@ sub new {
 		object_states => [
 			$self => [ qw(_start _default register
 					serial_input serial_error
-					status_override) ],
+					status_override play_alarm) ],
 		],
 	);
 
@@ -246,6 +246,13 @@ sub status_override {
 	$serial->flush();
 }
 
+sub play_alarm {
+	my ($heap) = $_[HEAP];
+	my $serial = $heap->{serial};
+	$serial->put('a0');
+	$serial->flush();
+}
+
 
 
 ## Web interface