メールを forward や procmail で渡すと pushover で通知を投げれる物

mail2pushover.pl

#!/usr/bin/env perl
#
# Requirements:
# MIME::Parser, Encode, LWP::UserAgent, Crypt::SSLeay
#

use strict;
use warnings;

use MIME::Parser;
use Encode qw/encode decode/;
use LWP::UserAgent;


my $parser = MIME::Parser->new;
$parser->output_dir('/tmp');

my $msg = $parser->parse(*STDIN);
my $msg_subject = decode('MIME-Header', $msg->head->get('Subject'));
my $msg_from = decode('MIME-Header', $msg->head->get('From'));
my $msg_to = decode('MIME-Header', $msg->head->get('To'));

LWP::UserAgent->new()->post(
  "https://api.pushover.net/1/messages.json",
  [
    "token"   => "<APP_TOKEN>",
    "user"    => "<USER_KEY>",
    "title"   => "$msg_subject",
    "message" => "From: $msg_from"."To: $msg_to",
  ]
) or die;