tie my @content, 'Tie::File', $file or die "$file: $!";