Select Code to Download

printf("%d%d%d%d%d\n",$a++,$a--,++$a,--$a,$a);

do {
   local @_;
...
   alias $_[5] = $a;    # Returns $a (lvalue)  $a=5
   \&printf;
}