in reply to Creating a reference to a core function

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

- tye