Select Code to Download

This is just a sample
<p>
...
bla bla bla
<ul>
By!

  #!/usr/bin/perl
  
  print "Hello World!\n" ;
  
  exit;

This is just a sample

...
bla bla bla

By!

  #!/usr/bin/perl
  
  print "Hello World!\n" ;
  
  exit;

This is just a sample

...
=back

By!

  #!/usr/bin/perl
  
  print "Hello World!\n" ;
  
  exit;

This is just a sample

...
=> By
Enjoy!

  $input =~ s/\r\n?/<p>\n/gs ;
  # after this is just the normal process for HTML (current process).

   use Pod::HtmlEasy ;
   my $p = Pod::HtmlEasy->new() ;
...
   # where is possible to handle VERBATIM data directly to <code>
   
   # after this is just the normal process for HTML (current process).

   use ePod ;
   $input = epod2pod($input) ;
...
   use Pod::HtmlEasy ;
   my $p = Pod::HtmlEasy->new() ;
   $input = $p->pod2html($input , only_content => 1 , no_index => 1 );