sub take_nap {
    my $nap_duration = int rand $MAXIMUM_NAP_TIME;

    return system 1, "sleep $nap_duration";
}