use strict; use warnings; use CGI qw(:standard); my $html = do {local $/;}; if (param('view_source')) { $html = pre(escapeHTML($html)); } print header, $html; __DATA__ view source example

view source example

view source