Help for this page

Select Code to Download

Select or download this

LOOP:while (<>) {
   chomp;
   ($user, $muser) = map lc, split;

Select or download this

LOOP:while (@ARGV) {
   chomp;
   my $user  = pop;
   my $muser = pop;