Perl Programm "Gesprächig" machen...

[Bio]

Sup!

Schreib' halt:

$DEBUG = ($ARGV[0] eq '-d');

und dann

warn "Hilfe - gefährlicher Fehler!" if $DEBUG;

überall da, wo's Not tut. Sind nur 9 Zeichen mehr zu tippen, und ggf. kannst Du die "warn" Zeilen ganz locker aus dem Quellcode rausfiltern.

Gruesse,

Bio