#!/usr/bin/perl -w

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param);




print $cgi->header(-type=>'text/html' 
                   -type=>'image/gif',
                             -nph=>1,
                             -status=>'402 Payment required',
                             -expires=>'+3d',
                             -cookie=>$cookie,
                             -charset=>'utf-7',
                             -attachment=>'test.gif',
                             -Cost=>'$2.00');
),
      $cgi->start_html(-title  =>'Testseite mit Link',),
      $cgi->h1('hallo Welt!'),
      $cgi->p('Solche sechs, wie wir fünf sind,
               gibts keine vier mehr, wir drei sind die zwei einzigen ;-)'),
      $cgi->end_html(); 

<img src="data:image/gif;base64,Base64CodedImageData">

use strict;
use warnings;

my $filename = 'foo.gif';

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

if(open(FILE, "< $filename"))
{
    binmode FILE;
    my $buffer;
    while(read(FILE, $buffer, 65536)) { print $buffer; undef $buffer; }
    close FILE;
}