print "Content-type: image/gif\n\n";
		open(MYFILE,"$picture_path") or die;
		
		binmode MYFILE;
                    undef $/;
                    my $pic = <MYFILE>;
                    close MYFILE;

                    print "Content-Type: image/gif\r\n\r\n";
                    binmode STDOUT;
                    print STDOUT $pic;