perl -e 'my $value = 10;
sub printit {print "$value"};
printit'