Select Code to Download

#! /usr/bin/perl
use strict;
...
    close $infh or die "closing $file failed: $!\n";
  }
}