#!/usr/bin/perl -T use strict; use warnings; use HTML::Entities; print < Environment variables and POSTed data

POSTed input data :

EOF print encode_entities $_ while (<>); print <

Environment:

EOF foreach my $v (sort keys %ENV) { print qq.\n.; } print <

source code for this page:

EOF unless (seek DATA,0,0) { print "couldn't read myself\n" } else { print "
";
  print encode_entities $_ while (); 
  print "
"; } print <

EOF __DATA__
$v., encode_entities($ENV{$v}), qq.