>c:\progs\perl580\bin\perl -e"use Scalar::Util qw( weaken ); weaken \$a"

>c:\progs\perl588\bin\perl -e"use Scalar::Util qw( weaken ); weaken \$a"