Select Code to Download

#!/usr/bin/perl
use strict;
...
close $unmatched or die "Cannot close file '" . UNMATCHED_FILE . "': $
+!";
close $matched   or die "Cannot close file '" . MATCHED_FILE   . "': $
+!";
close $input     or die "Cannot close file '" . DATA_FILE      . "': $
+!";