sub at_work
{
    $work < $usual ? go_home(relax) : order(pizza);
}