my $s = Sub { print +shift }
$s->('hello');