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

open (FHANDLE, ">result.diff");

print "test test... \n";

my $diff = diff "./test.txt", "./test1.txt", { STYLE => "Unified" , OUTPUT => \*FHANDLE }; 

close(FHANDLE);