my $v=0; #0 for silent, 1 for main info, 2 for all info

   ...
   print "something important\n" if $v > 0;
   print "something not so important\n" if $v >1;