my $Debug = 3;     # 0 - production, 1 - minor debugging, 2 .. 9 for different levels