use vars $d;