chomp(my $success = open OUT, ">$file_path"); # test for open omitted for space concerns

##</code><code>##

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