#!/usr/bin/perl -w
use strict;
use Net::SMTP;

my $smtp = Net::SMTP->new('localhost');
$smtp->mail($ENV{'USER'});  #Från
$smtp->to('jonas@paranormal.o.se');

my $brev = "To: jonas\@paranormal.o.se
From: jonas\@munin.nkp.ihuniversity.com
Subject: Testar

Detta är ett test...


Mvh. Din filur
";

$smtp->data( $brev );
$smtp->quit;  

print "Done!\n\n";