#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

use sigtrap qw(die untrapped normal-signals error-signals);

INIT {
    my $me = basename($0);
    sendmail('me@mydomain.com', "Service: $me Started", 'Service Started')
}


END {
    my $me = basename($0);
    sendmail('me@mydomain.com', "Service: $me Ended", 'Service Ended')
}