Select Code to Download

use strict;
use warnings;
...
sub sleep {
    print "$_[0] sleeps\n";
}

tom plays
harry eats
...
nick plays
sally eats
henry sleeps