Select Code to Download

sub indextime {
  my ($infile, $outfile) = @_;
  open my $in, '<', $infile or die "Couldn't open $infile for reading:
+ $!";
...
  close $in  or die $!;
  close $out or die $!;
}