Help for this page

Select Code to Download

Select or download this

for my $f ( @filenames ) {
  open my $in, $f or die $!;
  print uc while <$in>;
  close $in;
}

Select or download this

use constant DEBUG => 0;
my $File_Scoped_Lexical = 1;
$main::globals_suck_bigtime = 2;