print a_warning(text => "You are running low on pie", important => 1);
from the 2002 perl advent calendar