Select Code to Download

#!/usr/bin/perl -w
use strict;
...
            pre("CGI example, with font '$fontname'")
        ),
        end_html;

my %s;
@s{split //, '<>&'} = qw/lt gt amp/;
my $text = do { local $/; <Input> };
$text =~ s/([<>&])/"&$s{$1};"/ges;