package Potato; use constant tuber => 1; package Peach; use constant tuber => 0; package main; print Potato::tuber, Peach::tuber;