my $_out = sub { print @_ }