use 5.37.9;
use feature 'class';
no warnings 'experimental';

class X;

field $f :param;

method normal {
  say '$f = ', $f;
}

#----------------------------------------

package X;

sub creepy {
  my $self = shift;
  say @_;
}

package main;
my $x = X->new(f => "Hello, world");
$x->normal;
$x->creepy("Goodbye, friends");