Select Code to Download

use strict;
use warnings;
...
  exit 0 unless $pages{$page} == '1';
}

[peter@kennel tmp]$ perl test_eq.pl
Use of uninitialized value in numeric eq (==) at test_eq.pl line 13.