#!/usr/bin/perl --
use strict;
use warnings;
print ASDF(19), "\n";
BEGIN {
    my $a = 22;
    $a += 0;
    sub ASDF {
        my $b = $_[0] + 1;
    }
    sub DADA  { $a }
}