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