#!/usr/local/bin/perl my $file = "img/usagi_dt.jpg"; binmode(STDIN); read(STDIN, $image, $ENV{'CONTENT_LENGTH'} ); open(I, ">$file"); binmode(I); print I $image; close(I); print "Content-type: text/html\n\n"; print ""; print "

"; print ""; exit;