short shift

Short Shift Linkages - RTecShop.com
Short Shift Linkages ... This cool bit of kit will allow you to simulate a NOS purge. Only £46.99
http://www.rtecshop.com/?p=browse&category=67

$A++
tie $A, 'Tie::Increment', $A; $A; package Tie::Increment; sub TIESCALAR {bless {A => $_ [1]}, $_ [0] } sub STORE {($_ [0])->{A} = $_ [1] } sub FETCH {++ (shift)->{A} } 1;
http://paris.mongueurs.net/aplusplus.html