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