use strict; use warnings; use Data::Dump ('pp', 'dd'); use constant ('a', 1); $\ = "\n"; print \1; print \1; print \1; print \1;