my $s=sub{};
$s.();