Select Code to Download

warn "panic!\n" if $x->{limit} < 0 if $DEBUG;

#! /usr/bin/perl

...
   warn "debug message" if DEBUG && "something";
   warn "trace message" if DEBUG & TRACE;
}