sub at_work {
    if ($work > $usual) {
        order(pizza);
    }
    else {
        go_home(relax);
    }
}