Select Code to Download

    my $default = 5;
    my $nmbr = $mw->Entry(-width => 10, -textvariable => \$default);