$ perl -e'mkdir("$ENV{HOME}/.bashrc") or die $!,$/'
File exists