print "undefining w\n";
undef $w;
print "undefined w\n";