print a_warning(text      => "You are running low on pie",
                important => 1);

from the 2002 perl advent calendar

9 December 2003