Select Code to Download

use warnings;
#use Tk;
...
print "$_V\n";
print "$_A\n";
print "$_W\n";

use warnings;
use Tk;
...
  print "$_A\n";
  print "$_W\n";
}