my $Debugging= ...;
sub Trace {
    return   if  ! $Debugging;
    my( $file, $line )= ( caller )[1,2];
    warn @_, " at $file:$line\n";
}
#...
Trace("stupid debug message");