Select Code to Download

use Data::Dumper;
$Data::Dumper::Indent = 1;

printf "graph_pane => %s\n", Dumper(\$graph_pane);

graph_pane => $VAR1 = \bless( {
    'SubWidget' => {
...
                # ...Many lines omitted...
                #
  }, 'Tk::Frame' );