Select Code to Download

sub _usr_next {
    $window_hash->{main}{children}{label}->configure(-textvariable, $w
+indow_hash->{main}{children}{text});

}

#/usr/bin/perl -w
use strict;
...
    $window_hash->{left_label}->configure(-textvariable, $window_hash-
+>{main}->{globals}->{test2});
    $window_hash->{right_label}->configure(-textvariable, $window_hash
+->{main}->{globals}->{test1});
}