use criticism;
use strict;
use warnings;

$a = sub{ };
&$a;