#!/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();