Select Code to Download

<p>This is a bad try to display text then code
<pre>#! usr/bin/perl
use strict;
...

print "Hello World!";</pre>
and then plain text again</p>

#! /usr/bin/perl

use strict;
...
  $self->handler(text => sub {$text .= shift},"dtext");
  $self->handler(end  => sub {my $tag = shift; print $text,"\n\n" if($
+tag eq 'pre' || $tag eq 'p');},"tagname");
}