#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };
use 5.039.010;
use experimental 'class';

class My {
    field $x :param :reader;

}

my $o = 'My'->new(x => 10);
say $o->x;  # No other way.