use v5.14;

my $foo = 40;
sub foo {
   return(2 + $foo);
}