$mw->Button(
        -text => 'Randomise',
        -command => sub{do_randomise(\$value);}
        )->pack;