#!/usr/bin/perl
#
# sm-inject.pl written by detour@metalshell.com
#
# Open a pipe to sendmail to send an email.
#
# http://www.metalshell.com/
#
 
use strict;
 
my $sendmail = "/usr/sbin/sendmail";
 
open (SENDMAIL, "| $sendmail -t");
print SENDMAIL "Subject: Sendmail Inject\n";
print SENDMAIL "From: me\@email.com\n";
print SENDMAIL "To: dev\@null.com\n";
print SENDMAIL "Hello!\n";
print SENDMAIL "\n\n\n-bye";
close(SENDMAIL);