#!/usr/bin/perl -w
use strict;
use diagnostics;
use CGI::Debug;
use CGI;

print "Content-type: text/html\n\n";


my $to = param('to');
my $from = param('from');

print "<h1>Mailar</h1>\n";


open(MAIL, "| sendmail -f $from ") or die;

print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: Hej\n\n";

print MAIL "Hejdå\n";

close MAIL;