$ mkdir foo
$ cd foo/
$ perl -e 'open F, ">bar"'
$ ls
bar