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