#differents between two files

use strict; 
use warnings;
use Text::Diff;
use Class::CSV;


open(FILE, ">/home/Documents/Compare/diff.csv") or die "Cannot open file";
my $diffs = diff '/home/Documents/Compare/prtg.csv' => '/home/Documents/Compare/serverliste.csv';

print $diffs;
print FILE "$diffs";

close(FILE);