{
    my $foo = sub
    {
        my ($n) = @_;
        print "foo($n)\n";
    };

    $foo->(1);    # valid call
}

$foo->(2);        # invalid call