#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use strict;
use Net::SMTP;
use IO::Socket::INET;

print "content-type: text/html

";
print "
";

my $sock = new IO::Socket::INET( Proto=>"tcp", PeerAddr=>"localhost", PeerPort=>25);
die ("no connection possible") unless defined $sock;

chomp(my $hostname = `*zensored*`);
print $sock "HELO $hostname
";
print $sock "MAIL FROM: <*zensored*>
";
print $sock "QUIT
";
print "Server sagt:
";
print while <$sock>;
$sock -> close();




my $Smtpserver ='*zensored*';
my $Mail = '*zensored*';
my $To = '*zensored*';
my $Subject = '*zensored*';
my $Msg = '*zensored*';

my $smtp = Net::SMTP->new($Smtpserver, Debug => 1) || die $@;
$smtp->mail($Mail);
$smtp->to($To);

$smtp->data();
$smtp->datasend("Subject: $Subject
");
$smtp->datasend("To: $To
");
$smtp->datasend("
");
$smtp->datasend($Msg);
$smtp->dataend();
$smtp->quit;