#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use HTML::Template::Compiled;

my $cgi = CGI->new();
print $cgi->header();

my %params = $cgi->Vars();
my $template = HTML::Template::Compiled->new( filename => 'htc_bieber.tmpl' );

if( !$params{action} or $params{action} eq 'seite1' ){
    seite1( $template );
}
elsif( $params{action} eq 'seite2' ){
    seite2( $template );
}
else{
    fehler( $template );
}

print $template->output;

#--
# Subroutines
#-- 

sub seite1{
    my ($tmpl) = @_;
    $tmpl->param( BODY => 'Testseite Nr. 1' );
}

sub seite2{
    my ($tmpl) = @_;
    $tmpl->param( BODY => 'Sie haben Seite Nr. 2 gewählt' );
}

sub fehler{
    my ($tmpl) = @_;
    $tmpl->param( BODY => 'Ätsch! Seite existiert nicht' );
}