#!/usr/bin/perl

use strict;
use warnings;

use v5.36;

say 'Hello, world!';

##</code><code>##

  DB<1> use Devel::Peek;

  DB<2> Dump( ${"_<a.pl"}[8] );
SV = PVMG(0x55d8627958e0) at 0x55d86251ff80
  REFCNT = 1
  FLAGS = (IOK,POK,IsCOW,pIOK,pPOK)
  IV = 94387850872920
  NV = 0
  PV = 0x55d8628074b0 "say 'Hello, world!';\n"\0
  CUR = 21
  LEN = 32
  COW_REFCNT = 1

  DB<3> Dump( ${"_<a.pl"}[6] );
SV = PVMG(0x55d862786d50) at 0x55d86251fec0
  REFCNT = 1
  FLAGS = (POK,pIOK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x55d8627d7d50 "use v5.36;\n"\0
  CUR = 11
  LEN = 16

##</code><code>##

  DB<4> use Devel::Peek;Dump( ${"_<a.pl"}[5] );
SV = PVMG(0x55856a4198d0) at 0x55856a4e9630
  REFCNT = 1
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x55856a486840 "\n"\0
  CUR = 1
  LEN = 16

##</code><code>##

  DB<2> Dump( ${"_<a.pl"}[6] );
SV = PVMG(0x55874ddaf680) at 0x55874db508a8
  REFCNT = 1
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 94039612799016
  NV = 0
  PV = 0x55874db739a0 "use v5.10;\n"\0
  CUR = 11
  LEN = 16