sub button_press {
    srand(time|$$);
    my $rand = rand();
    ... display $rand ...
}