my $DEBUG = 1;

sub foo {
    logit "Starting foo() with yadda";
    .. code ..
    logit "Now doing stuff";
    .. code ..
    logit "Now munging";
    logit "Done with foo()";
}

sub logit {
     my ($msg) = @_;

     if ($DEBUG) {
          say $msg;
     }
}