Select Code to Download

sub process_file {
  my $file=shift;
...
       ## do something exciting here
  }
}

  push @in,scalar <IN> for 1..10;