#!/usr/bin/perl

use v5.22;

use strict;
use warnings;

use experimental 'lexical_subs';
no warnings 'experimental::lexical_subs';

foo();
bar(1);

sub foo {
    say 'foo';

    my sub bar {
        say "bar " . shift;
    }

    bar(2);
}