Select Code to Download

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

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