To run Perl code in Jupyter Notebook, you need to install a Perl kernel. One such kernel is the Perl 6 Kernel which supports Perl 6 programming language, but it can also execute some Perl 5 code. You can install it using the following command:

Copy code
pip install jupyter_kernel_perl6

##</code><code>##

Configuring P/PE/PEVANS/Future-IO-0.13.tar.gz with Build.PL
Created MYMETA.yml and MYMETA.json
Creating new 'Build' script for 'Future-IO' version '0.13'
  PEVANS/Future-IO-0.13.tar.gz
  C:\Strawberry\perl\bin\perl.exe Build.PL -- OK
Running Build for P/PE/PEVANS/Future-IO-0.13.tar.gz
Building Future-IO
  PEVANS/Future-IO-0.13.tar.gz
  C:\Strawberry\perl\bin\perl.exe ./Build -- OK
Running Build test for PEVANS/Future-IO-0.13.tar.gz
t\00use.t ................ ok
t\01sleep.t .............. ok
t\02sysread.t ............ ok
t\03sysread_exactly.t .... ok
t\03sysread_until_eof.t .. ok
t\04syswrite.t ........... ok
t\05syswrite_exactly.t ... ok
t\06connect.t ............ 1/?
# Failed test 'Future::IO->connect fails on closed server'
# at C:\STRAWB~1\cpan\build\Future-IO-0.13-2\blib\lib/Test/Future/IO/Impl.pm line 194.
t\06connect.t ............ 2/?
# Failed test 'Future::IO->connect failure'
# at C:\STRAWB~1\cpan\build\Future-IO-0.13-2\blib\lib/Test/Future/IO/Impl.pm line 196.
# +------+-----------------------------+----+-----------------------------+
# | PATH | GOT                         | OP | CHECK                       |
# +------+-----------------------------+----+-----------------------------+
# | [0]  | <DOES NOT EXIST>            |    | connect: No connection coul |
# |      |                             |    | d be made because the targe |
# |      |                             |    | t machine actively refused  |
# |      |                             |    | it.\n                       |
# |      |                             |    |                             |
# | [1]  | <DOES NOT EXIST>            |    | connect                     |
# |      |                             |    |                             |
# | [2]  | <DOES NOT EXIST>            | == | IO::Socket::INET=GLOB(0x353 |
# |      |                             |    | e5a8)                       |
# |      |                             |    |                             |
# | [3]  | <DOES NOT EXIST>            |    | No connection could be made |
# |      |                             |    |  because the target machine |
# |      |                             |    |  actively refused it.       |
# +------+-----------------------------+----+-----------------------------+
# Seeded srand with seed '20230331' from local date.
t\06connect.t ............ Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/3 subtests
t\07accept.t ............. ok
t\10sleep+sysread.t ...... skipped: Cannot select() on pipes on Windows
t\20impl-override.t ...... ok
t\21impl-before-load.t ... ok
t\30system.t ............. skipped: Unable to find a Future::IO impl that supports ->waitpid
t\99pod.t ................ ok

Test Summary Report
-------------------
t\06connect.t          (Wstat: 512 Tests: 3 Failed: 2)
  Failed tests:  2-3
  Non-zero exit status: 2
Files=14, Tests=38, 12 wallclock secs ( 0.13 usr +  0.02 sys =  0.14 CPU)
Result: FAIL
Failed 1/14 test programs. 2/38 subtests failed.
Lockfile removed.
  PEVANS/Future-IO-0.13.tar.gz
  C:\Strawberry\perl\bin\perl.exe ./Build test -- NOT OK