#!/usr/bin/perl -w
# $Id: mailtest.pl,v 1.1 2001/08/10 19:32:21 jamgill Exp $

# this little  ditty demonstrates using /bin/mail from
# within a perl program.  it sends emaill to the address
# with a subject line of the program's name and a message
# of "hello world" and the date.

use strict;

my $binmail = "/bin/mail";
my $address = 'my_address@my.corneroftha.net';
my $message;
my $subject = $0;

### Main:

$message = &generate_message($message);

`$binmail -t $address <<STOP
Subject: $subject

hello world.

$message
STOP`;

print "sent message with subject $0 to $address\n";

### Subs:
sub generate_message {
        my $timestamp = `date`;
        return($timestamp);
}