use strict;
    use warnings;
    use List::Compare;
    use LWP::Simple;




    open F,"<","C:/Users/jeyakuma/Desktop/shipping project/changed  contents/file1.html" ;
   open S, "<","C:/Users/jeyakuma/Desktop/shipping project/database/file2.html" ;

    my @a=<F>;
    my @b=<S>;

    my $lc = List::Compare->new(\@a,\@b);

    my @intersection = $lc->get_intersection;
    my @firstonly = $lc->get_unique;
    my @secondonly = $lc->get_complement;


    print "Common Items:\n"."@intersection"."\n";
    print "only in file\n"."\n@firstonly"."\n";
    print "only in file1 \n"."\n@secondonly"."\n";