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