#!/usr/local/bin/perl -w
###########################################
# ical-notify - Email calendar notification
# Mike Schilli, 2010 (m@perlmeister.com)
###########################################
use strict;
use local::lib;
use Mail::DWIM qw(mail);

my($agenda, $time) = @ARGV;

die "usage: $0 time agenda" unless
    defined $time;

mail(
  to          => 'm@perlmeister.com',
  subject     => "Meeting: $agenda",
  text => "Meeting '$agenda' at $time.",
  transport   => "smtp",
  smtp_server => "localhost",
);