You need to print out the appropriate content header so that its an image. i.e.

my $image = $query->param('image');
$image =~ m/^.*(\\|\/)(.*)/;

print header('image/gif');

while (<$image>)    {


    print STDOUT $_;


}
[download]

Dingus

---

Enter any 47-digit prime number to continue.