$entry->bind( '<KeyRelease>', sub {
    if ( $entry_var =~ /^\d+$/ && $entry_var <= 100 ) {
        $scale_var = $entry_var;
    }
} );