Select Code to Download

#! perl
use strict;
...
close $out or die "Cannot close file '$error': $!";
close $in2 or die "Cannot close file '$file2': $!";
close $in1 or die "Cannot close file '$file1': $!";

use strict;
use warnings;
...
open(my $out, '>', $error) or die "Cannot open file '$error' for writi
+ng: $!";
print $out $diff;
close $out or die "Cannot close file '$error': $!";

--- file1.txt    Tue Aug 26 17:12:02 2014
+++ file2.txt    Tue Aug 26 17:12:22 2014
...
+Severe anterior hypoplasia,
 Figure 3.
 Somatotropes presentation of GH1,