#diffgen.pl
    use warnings;
    use strict;
    use Text::Diff;

    print "test test... \n";
	
    my $diff = diff "./Project1/include/jcapi_includes.h", 
    "./Project1/2.1/include/jcapi_includes.h", 
    { STYLE => "Unified" }, ( OUTPUT => "./result.diff" ); 

##</code><code>##

perl diffgen.pl

##</code><code>##

test test...