my $ref= sub { warn @_; };