Select Code to Download

my $DEBUG = 1;

#... later in your code
if ($DEBUG) { warn "Something happened\n" }

my $dimensions = _get_dimensions_for(5,8);

...
    y=> $y 
  } 
}