diff --git a/tests/t/62http-client.t b/tests/t/62http-client.t
index 833dfa2..fd4d392 100644
--- a/tests/t/62http-client.t
+++ b/tests/t/62http-client.t
@@ -37,7 +37,7 @@ $ua->agent(
 # test ###########################
 
 my $data = "TEST>HTAPRS,TCPIP*:>http packet content";
-my $out = "TEST>HTAPRS,TCPIP*,qAU,TESTING:>http packet content";
+my $out = "TEST>HTAPRS,TCPIP*,qAC,TESTING:>http packet content";
 my $post = "user TEST pass 29939 vers httpaprstester 1.0\r\n"
 	. "$data\r\n";
 my $url = "http://127.0.0.1:55080/";
diff --git a/tools/aprsis-http-post b/tools/aprsis-http-post
new file mode 100644
index 0000000..f497fb6
--- /dev/null
+++ b/tools/aprsis-http-post
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use LWP;
+use LWP::UserAgent;
+use HTTP::Request::Common;
+
+my $ua = LWP::UserAgent->new;
+
+$ua->agent(
+	agent => "httpaprstester/1.0",
+	timeout => 10,
+	max_redirect => 0,
+);
+
+# test ###########################
+
+my $data = "TEST>HTAPRS,TCPIP*:>http packet content";
+my $out = "TEST>HTAPRS,TCPIP*,qAC,TESTING:>http packet content";
+my $post = "user TEST pass 29939 vers httpaprstester 1.0\r\n"
+	. "$data\r\n";
+my $url = "http://127.0.0.1:55080/";
+my $req = HTTP::Request::Common::POST($url);
+$req->header('Accept-Type', 'text/plain');  # wat?
+#$req->header('Accept', 'text/plain'); # this is what HTTP uses, really
+$req->header('Content-Type', 'application/octet-stream');
+$req->header('Content-Length', length($post));
+$req->content($post);
+
+my $res = $ua->simple_request($req);
+
+print $res->code . " " . $res->message . "\n\n";
+print $res->content . "\n";
+