my $q = sub {
  my $var = shift; # 'lang' in this case
  return 1;
}