use Smart::Comments '###', '####'; ### $foo # $foo will be dumped #### $foo # $foo will be dumped ##### $foo # nothing happens