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

##</code><code>##

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

##</code><code>##

graph_pane => $VAR1 = \bless( {
    'SubWidget' => {
      'scrolled' => bless( {
        '_After_' => {
          'after#3' => bless( [
            ${$VAR1}->{'SubWidget'}->{'scrolled'},
            'after#3',
            'idle',
            'once',
            bless( [
              'Manage',
              ${$VAR1}->{'SubWidget'}->{'scrolled'},
              bless( {
                # 
                # ...Many lines omitted...
                #
  }, 'Tk::Frame' );