$ perl -we 'undef=undef' $