use strict;
use warnings;
use Text::Diff;

my $error = 'error.txt';
my $diff  = diff "file1.txt", "file2.txt";

open(my $out, '>', $error) or die "Cannot open file '$error' for writing: $!";
print $out $diff;
close $out or die "Cannot close file '$error': $!";