Select Code to Download

if (m/\<!-- Begin Perl Block --\>/i)
    {
    my $perlcode = '';
...
    # Execute the anonymous sub
    $_ = &{eval $perlcode;};
    }

<!-- Begin Perl Block -->
sub 
...
    return $text;
    }
<!-- End Perl Block -->

sub 
{ 
$text = ''; 
...

return $text; 
}

sub 
{ 
$text = ''; 
...

return $text; 
}