#!/usr/bin/perl -w

use strict;
use pifia;

print "Test alarm: always sends output";

my $arg = shift @ARGV;

if (defined $arg and $arg eq '-m') {
   print ': ', shift @ARGV;
}

print "\n";
