view release on metacpan or  search on metacpan

cgi/showEnv.pl  view on Meta::CPAN

my $text;
foreach (@ARGV){
  $text=1 if /\btext/i;
}

printHeader();

printSectionTitle("User");
printTableOpen();
my $login=(getlogin()||(getpwuid($<))[0]);
printTableLine('login', $login);
printTableClose();

printSectionTitle("Misc");
printTableOpen();
printTableLine('Perl version', sprintf("%vd", $PERL_VERSION));
printTableLine('osname', $^O);
printTableLine('@INC', join ' ', @INC);
printTableLine('', $1);
printTableLine('', $1);