#!/usr/bin/perl -l

BEGIN { $ENV{'PERL_MAILERS'} = 'sendmail:c:\sendmail.exe'; }

use Mail::Mailer "sendmail";

my $m = Mail::Mailer->new();

$m->open({qw(
                From    someone@somewhere.com 
                To      someone@someotherplace.com
                Subject hey
           )}
        );

print $m "Hi";

$m->close;

##</code><code>##

sub pipe_to_fork {
    my $parent = shift;
    pipe my $child, $parent or die;
    my $pid = fork();
    die "fork() failed: $!" unless defined $pid;
    if ($pid) {
        close $child;
    }
    else {
        close $parent;
        open(STDIN, "<&=" . fileno($child)) or die;
    }
    $pid;
}