Select Code to Download

  while ($raw =~ /\G([\w ]*)/g) {
...
      }
    }
  }

  sub {
    my $t_ref = shift;
...
      confess("This shouldn't happen");
    }
  }