im/imdither/imdither_tests.py


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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;