Select Code to Download

    perl -wle"for ('00001'..'10000') { print join ' ', ($_) x 20; }" >
+ temp.tmp

  open my $fh, 'temp.tmp' or die $!;

...
  local $_;
  my @temp;
  push @temp => map "$_\n", split ' ' while <$fh>;