Prologue
drwxrwxrwx    2 mitd mitd 4096 Jul 26 02:36 testdir
-r--r--r--    1 mitd mitd  0 Jul 26 02:36 testdir/myfile

perl -e 'open(FILE,">myfile") or die $!'