=over

=item given EXPR BLOCK
X<given>

=item given BLOCK

C<given> is analogous to the C<switch> keyword in other languages. C<given>
and C<when> are used in Perl to implement C<switch>/C<case> like statements.
Only available after Perl 5.10.  For example:

    use v5.10;
    given ($fruit) {
        when (/apples?/) {
            print "I like apples."
        }
        when (/oranges?/) {
            print "I don't like oranges."
        }
        default {
            print "I don't like anything"
        }
    }

See L<perlsyn/"Switch statements"> for detailed information.

=back