%TAB = (

 exemplo  => \&exemplo ,
 exemploc => \&exemplo ,
 comm     => sub {},
 ua       => sub { "p{Última actualização " . `date` . "}"  },
 q        => sub { qq{<div class='boxed'>$_[0]</div>} }
);

sub exemplo{ 
   my $p=shift; 
   my $p1 = `cat $p`;
   my ($p2, $p3);
   if (-f "$p.xpl")         { $p2= "inc{$p.xpl}" }
   elsif ($p1 =~ /__END__/) { ($p1,$p2) = split(/\s*__END__\s*/, $p1); }
   else                     {  }
   $p3=bpre(protege($p1)); 

   qq{
   h3{Exemplo $p}
   h4{Enunciado}
   div{class:{boxed} $p2}
   h4{Resolução}
   $p3
   hr{}
   }; 
}