$ perl -MCwd -le " print for grep /Cwd/, %:: " Cwd:: *main::Cwd:: _