Change

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

to

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