$s = bless( {
    'Entry_Display_in_Wins' => {
        _GUI_Glue' => bless( {
            'GUI_Glue' => {
                '_image_win'=>bless( {},'Tk::Photo'),
                '_main_win' =>bless( {}, 'MainWindow'),
            }
        }, 'GUI_Glue' )
    },
    'Entry_Ordering'    => {
        '_auto_advance_time'    => 6,
        '_chances'              => [],
        '_chances_total'        => 0,
        '_cur_entry_index'      => -2,
        '_disable_auto_advance' => 0,
        '_formula_text'         => '$x*$x',
        '_rating_to_chance'     =>  sub () {
                                        package Entry_Ordering;
                                        use strict 'refs';
                                        my $x = shift @_;
                                        $x = $x*$x;;
                                    },
        '_record_index' => -1,
        '_shuffle' => 0,
        'record' => []
    },
    'File_Rating_DB' => {
        '_base_dirname' => '/home/$USER/img-redirect/',
        '_db_filename' => 'show.dat',
        '_db_modified' => 1,
    },
    'File_Rating_Entries' => {
          '_entries' => [
              bless( { '_filename' => 'Andromeda-m31.jpg', '_rating' => 2 },
                'File_Entry' ),
              bless( { '_filename' => 'Hibiscus_1.jpg', '_rating' => 9 },
                'File_Entry' )
               ]
     }
  }, 'Timed_Display_In_Wins' );