$mug =~ s/.*/coffee/s, sleep(1500 + rand 600) while 1; #### $mug =~ s/.*/beer/s, sleep(1500 + rand 600) while 1;