or die "Can't open file `$file' for writing: $!";