#!/usr/bin/perl -w

use warnings;
use strict;

my $text;
for my $file (@ARGV) {
  {
    local $/=undef;
    open my $fh, '<', $file or die;
    $text = <$fh>;
    close $fh;
  }
  $text =~ s/\s//g;

  if ($ENV{'debug'}) {
    print "forwards  = $text\n";
    print "backwards = " . reverse($text) . "\n";
  }

  if ($text eq reverse $text) {
    print "$file: Palindome OK.\n";
  }
  else {
    print "$file: NOT a palindrome.\n";
  }
}
exit 0;