You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#!/usr/local/bin/perl
|
|
|
|
use CGI;
|
|
|
|
$co = new CGI;
|
|
|
|
open (IMAGE, "<image.gif");
|
|
|
|
$size = -s "image.gif";
|
|
|
|
read IMAGE, $data, $size;
|
|
|
|
close IMAGE;
|
|
|
|
print
|
|
|
|
$co->header(-type=>'image/gif'),
|
|
|
|
$data; |