open(FOO,">$file") || die "Couldn't open $file: $!";