fixed some basics

1 files changed, 17 insertions, 0 deletions

diff --git a/im/imdither/imdither_tests.py b/im/imdither/imdither_tests.py
new file mode 100755
index 0000000..ee18b8d
--- /dev/null
+++ b/im/imdither/imdither_tests.py
@@ -0,0 +1,17 @@
+#!/usr/bin/perl 
+use LWP::UserAgent;
+use CGI;
+use Data::Dumper;
+
+my $URL = "http://localhost/cgi-bin/imdither.py";
+
+
+
+
+my $ua       = LWP::UserAgent->new();
+my $response = $ua->post( $URL, { } );
+my $content  = $response->decoded_content();
+
+my $cgi = CGI->new();
+print $cgi->header(), $content;
+