Select Code to Download

$ perl -E'sub { $_[0]="fred"; }->($i++); say $i'
1

$ perl -E'sub { $_[0]="fred"; }->(++$i); say $i'
fred

#include <stdio.h>

...
    printf( "x: %d \n", x );
    return 0;
}

$ g++ -o a a.cpp && a
a: 2, b: 2
x: 4