>perl -e"use Scalar::Util qw( weaken );" >