####inicion perl
$periodo=$in{'periodo'}; #capturando variable
if($periodo eq "trimestre"){
$tablex .="
<tr class='texto'><td> </td>
<td class='texto2' colspan='3'>
<div align='center'>Presupuestado</d>
...# etc, generando tabla de 3 tres columnas ";
if($periodo eq "semestre"){
$tablex .="...# etc, generando tabla de 6 tres columnas ";
if($periodo eq " "){#no genera nada}
##############################################
$tabla_presupuesto .="
<table width='100' border='1' cellpadding='1' cellspacing='0' bordercolor='#e2e2e2'>
<tbody>
<tr class='texto'>
<td class='texto2' colspan='6'>
<div class='texto2' align='center'>Periodo
<!-- <select name='periodo' onchange = 'this.form.action ='misma_pag.pl?periodo='+this.value; this.form.submit()'>-->
<select name='periodo' onchange = 'this.form.action ='presupuesto.pl?periodo='+this.value; this.form.submit()'>
<option value='trimestre' selected>Trimestre</option>
<option value='cuatrimestre'>Cuatrimestre</option>
<!-- <option value='semestre' >Semestre</option>-->
</select>
</div>
</td>
$tablex
</table>
################fin perl########################
<html>
<!--imprimir pgaina-->
<tr>
<td>
$tabla_presupuesto
</td>
</tr>
</table>
</html>