Select Code to Download

#! /usr/bin/perl -w

...
  close OUT
    or die "Cannot close output file $outfile: $!\n";
}