use strict;
use warnings;
use v5.14;

{
	my $add = 20;
	sub add_20 { my $c = shift; return ($c + $add);}
}

say add_20(30);