Select Code to Download

    print Data::Dumper->Dump([$var1, $var2, $var3], [qw($var1 $var2 $v
+ar3)]);

   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;