use strict; use warnings; use CGI qw(:standard); my $html = do {local $/;}; my $mime = param('view_source') ? 'plain' : 'html'; print header("text/$mime"), $html; __DATA__ view source example

view source example

view source