Select Code to Download

use strict;
use warnings;
...
print "\nAll the kids are out of the pool\n";

exit 0;

    next KID_IN_LINE if $lifeguard->start($kid) != 0;

$lifeguard->run_on_start(
    sub {
...
        print "\nThe lifeguard waves $kid into the pool\n";
    }
);

$lifeguard->run_on_finish(
    sub {
...
        print "\n$kid climbs out of the pool\n";
    }
);