#!/usr/bin/perl

use LWP;

$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(POST => 
	'mailto:gabriel.rosenkoetter@radian.biz');
$req->header(Subject => "testing");
$req->content("foo bar\n");

my $res = $ua->request($req);

if ($res->is_success) {
	print $res->content;
} else {
	print $res->status_line, "\n";
}