Add some examples to the glob() documentation

pod/perlfunc.pod

@@ -3372,11 +3372,19 @@ X<glob> X<wildcard> X<filename, expansion> X<expand>
 In list context, returns a (possibly empty) list of filename expansions on
 the value of EXPR such as the standard Unix shell F</bin/csh> would do.  In
 scalar context, glob iterates through such filename expansions, returning
-undef when the list is exhausted.  This is the internal function
-implementing the C<< <*.c> >> operator, but you can use it directly.  If
+undef when the list is exhausted. If
 EXPR is omitted, L<C<$_>|perlvar/$_> is used.  The C<< <*.c> >> operator
 is discussed in more detail in L<perlop/"I/O Operators">.
 
+    # List context
+    my @txt_files  = glob("*.txt");
+    my @perl_files = glob("*.pl *.pm");
+
+    # Scalar context
+    while (my $file = glob("*.mp3")) {
+        # Do stuff
+    }
+
 Note that L<C<glob>|/glob EXPR> splits its arguments on whitespace and
 treats
 each segment as separate pattern.  As such, C<glob("*.c *.h")>
@@ -3415,6 +3423,12 @@ is used as a C<while>/C<for> condition, then the condition actually
 tests for definedness of the expression's value, not for its regular
 truth value.
 
+Internal implemenation details:
+
+In scalar context this is the internal function implementing the
+C<< <*.c> >> operator, but you can use it directly. The C<< <*.c> >>
+operator is discussed in more detail in L<perlop/"I/O Operators">.
+
 Portability issues: L<perlport/glob>.
 
 =item gmtime EXPR