use strict;
use warnings;
use String::Compare qw();
use File::Compare qw();

my $str1 = "fred.txt";
my $str2 = "fred1.txt";

String::Compare::compare ($str1, $str2);
File::Compare::compare ($str1, $str2);