Help for this page
use if $ENV{SLICE}, 'Slicer'; use if !$ENV{SLICE}, 'constant', slice => 0;
package Slicer; ... } 1;
>set SLICE= ... >perl -wle"use Slicer; sliced('!'); main:: sliced :!