#!/usr/bin/perl use strict; use Skel::Data; skimport; print templ1( {tit=>"Dragao",aut=>"Aho, Ulman and Setty"}, {tit=>"Lusiadas",aut=>"Camoes",desc=>"epopeia"}, ) __DATA__ __templ1__ [% default:{desc=>"to be provided"} %] Titulo: [% tit %] author: [% aut %] isa: Book [% !templ2 %] __templ2__ Descrição do livro: [% desc %] ------ __END__ =head1 NAME ex11 - examples =head1 SYNOPSIS use of default falue in templ1 templ($hand1, $hand2) ==> templ($hand1) . templ($hand2) [%!templ2 %] ==> include(templ2)