Someone

use Irssi;
use strict;

use vars qw($VERSION %IRSSI);
$VERSION = "0.3";
%IRSSI = (
          authors       => "Karl Siegemund",
          contact       => "q \[at\] spuk.de",
          name          => "doublefilter",
          description   => "Filters msgs which appear the same on different chan
nels.",
          licence       => "GPLv2",
          changed       => "22.04.2005 9:50GMT"
);

sub notify_public
{
        my ($server, $data, $nick, $mask, $target) = @_;
        if ($data =~ m/dagmd/i)
        {
        system("echo $server: $nick -> $data | ~/alarm.ksh");
        }


}
Irssi::signal_add_last('message public', 'notify_public');