#!/usr/local/bin/perl
use 5.016;use warnings;print sub { 4 }->()