#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;
use CGI;
use HTML::Template::Compiled;

my $cgi = CGI->new();
my %params = $cgi->Vars();

print $cgi->header();
my $template_file = 'template.tmpl';

my $tmpl_obj = HTML::Template::Compiled->new(filename => $template_file);

# berechne Bild

$tmpl_obj->param(BILD => 'pfad/zu/neuem/Bild', PARAM => 'Wert für PARAM');
print $tmpl_obj->output();