Select Code to Download

#!/usr/bin/perl -w
                                                                      
+          
...
    print "\$pvar => $$pvar\n";
                                                                      
+          
}

    my $button_A = $mw->Button(
    -text    => '  Button A',
...
    print "\$var => $var\n";
                                                                      
+          
}