Use given instead of with in handle opening

These examples might be copy-pasted into code where ignoring
failures in open might be a bad idea.

Author: zoffixznet

doc/Type/IO/Handle.pod6

@@ -207,14 +207,14 @@ L«C<unlock>|/routine/unlock» to remove a lock.
 # will wait for the other to finish before proceeding to read/write
 
 # Writer
-with "foo".IO.open(:w) {
+given "foo".IO.open(:w) {
     .lock;
     .spurt: "I ♥ Perl 6!";
     .close;
 }
 
 # Reader
-with "foo".IO.open {
+given "foo".IO.open {
     .lock: :shared;
     .slurp.say; # OUTPUT: «I ♥ Perl 6!␤»
     .close;
@@ -384,7 +384,7 @@ L<in binary mode|/type/IO::Handle#method_encoding>.
 
 =begin code :skip-test
     (my $file = 'foo'.IO).spurt: 'I ♥ Perl';
-    with $file.open {
+    given $file.open {
         say .read: 6; # OUTPUT: «Buf[uint8]:0x<49 20 e2 99 a5 20>␤»
         .close;
     }
@@ -403,7 +403,7 @@ C<X::IO::BinaryMode> exception being thrown.
 
 =begin code :skip-test
     (my $file = 'foo'.IO).spurt: 'I ♥ Perl';
-    with $file.open {
+    given $file.open {
         say .readchars: 5; # OUTPUT: «I ♥ P␤»
         .close;
     }
@@ -565,7 +565,7 @@ block is left.
       # ... do stuff with the file
     }
 
-    with "foo/bar".IO.open(:w) {
+    given "foo/bar".IO.open(:w) {
         .spurt: "I ♥ Perl 6!";
         .close;
     }
@@ -594,7 +594,7 @@ Will flush the handle, writing any of the buffered data. Returns C<True>
 on success; otherwise, L<fails|/routine/fail> with C<X::IO::Flush>.
 
 =begin code :skip-test
-    with "foo".IO.open: :w {
+    given "foo".IO.open: :w {
         LEAVE .close;
         $fh.print: 'something';
         'foo'.IO.slurp.say; # (if the data got buffered) OUTPUT: «␤»