package Potato;
use constant tuber => 1;

package Peach;
use constant tuber => 0;

package main;
print Potato::tuber, Peach::tuber;

##</code><code>##

use constant visited_urls => {};
...
unless ( visited_urls->{$my_url} ++ ) {
  ...
}