#!/perl/bin/perl -w

use File::Compare;

printf "blabla1.txt und blabla2.txt sind %s.\n",
compare("blabla1.txt", "blabla2.txt") ? "ungleich" : "gleich";

use File::Compare 'cmp'; 
blabla1=blabla2 dann 0, blabla1>blabla2 dann 1 und blabla1<blabla2 dann -1.
sub munge($) {
my $line = $_[0];
for ($line) {
    s/^\s+//;  
    s/\s+$//;  
}
return uc($line);
}
if (not cmp("blabla1.txt", "blabla2.txt", sub { munge $_[0] eq munge $_[1]} )) {
print "blabla1.txt und blabla2.txt sind in gewisser weise gleich.\n";
}