#!/usr/bin/perl

if ('A' EQ 'A')
{
  print "Equal\n";
}