% perl -del existingFile.txt
  DB<1> x eof()
0  ''

  DB<2> x sysseek(*ARGV,0,1)
0  4096

  DB<3>