Help for this page
sub page_hash { my $d = Digest::MD5->new(); $d->add( get( PAGE ) ); $d->digest }
my $original = page_hash(); . . . if ( $original ne page_hash() ) . . .