#!/usr/local/bin/perl my $file = "fla.png"; #my $file = "fla.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 "‰æ‘œo—ÍŠ®—¹
"; print ""; print ""; exit;