my $debug = 11;
...
print STDERR "something worked: $wombat\n" if $debug > 5;
...
print STDERR "in here: too much detail", join ", ", @_, "\n" 
   if $debug > 20;