G'day ghosh123,

See "Tk::after - Execute a command after a time delay"; in particular, the "Changing a repeat timer interval" section.

Here's how you might randomly generate 2, 3 or 5:

$ perl -Mstrict -Mwarnings -e '
    my @waits = (2, 3, 5);
    print $waits[int rand @waits] for 1 .. 12;
'
252523222533
[download]