Select Code to Download

open my $file "<", $image_file or die "grr: $!";
# (You shouldn't print the header manually if you use CGI)
print "Content-type: image/gif\n\n";
print $_ while <$file>;

use strict;
use warnings;
...
print $cgi->start_html;
print $cgi->table( $cgi->Tr( $cgi->td([ $cgi->img({src=>"blarg"}) )));