Select Code to Download

sub getimage{
        my $self = shift;
        my $q = $self->query;
...
        ...
        print $q->header(-type=>'image/gif', -Content_Length=>length($
+binData)+1).$binData 
}