sub getFileSize { my( $fileName )= @_; return -s $fileName; }