package Phone::Cell;
sub charge {
    local $volume = 4;
    # Charge...
}