my $perlcode = <<'EOM';
my $sth = $dbh->prepare("SELECT * FROM foo where bar = ?");
$sth->execute(23);
...
EOM
use HTML::Entities qw/ encode_entities /;
my $html = "<textarea ...>" . encode_entities($perlcode) . "</textarea>";