open(FOO, $file) || die "Couldn't open $file - $!\n";