#!/usr/bin/perl

use warnings;
use strict;

sub func1 {
    sub func2 {
        return 5;
    }
    print func2() . "\n";
}

func1();