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