Select Code to Download

#!/usr/bin/perl -w
use strict;
...
} );

MainLoop;

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