Help for this page

Select Code to Download

Select or download this

sub compare{
  return 0 unless length $_[0] == length $_[1];
...
  }
  return 1;
}