#!/usr/bin/perl -w
use strict;
use MIME::Lite;

my $to = 'foo@example.com';

my %text =
    $0 =~ /left/ ? (
        subject => "%s is weer weg",
        data    => "Dit is een geautomatiseerd bericht, dat wordt gestuurd " .
                   "omdat de telefoon van\n%s buiten bereik is."
    )
    :
    $0 =~ /arrived/ ? (
        subject => "%s is er weer",
        data    => "Dit is een geautomatiseerd bericht, dat wordt gestuurd " .
                   "omdat de telefoon van\n%s binnen bereik is."
    )
    :
    die "What am I?"
    ;

my $person = shift;

my $msg = MIME::Lite->new(
    From    => 'bar@example.org',
    To      => $to,
    Subject => sprintf($text{subject}, $person),
    Data    => sprintf($text{data}, $person),
);

$msg->send;